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Introduction 


A scheme  for  automation  for  thermogravimetry  was 
described  initially  by  Dickens,  Pummer  and  Flynn  [1]  and 
then  further  by  Dickens  [2] . The  performance  of  the  appa- 
ratus is  detailed  by  Dickens  in  references  [2]  and  [3] . 

The  apparatus  includes  a minicomputer  which  directs  the 
course  of  the  experiment.  The  computer  programs  were 
described  initially  in  reference  [4]  and  in  more  detail  in 
reference  [5] . The  present  report  describes  the  operation 
of  the  automated  equipment  in  minute  detail.  Several 
computer  programs  have  been  written  to  collect  data  using 
the  automated  thermogravimetry  apparatus,  to  process  thermo- 
gravimetric  data,  and  to  plot  the  results.  Their  operation 
and/  to  some  extent,  their  philosophies,  are  described 
here . 

These  programs  are: 

1.  Factor-jump  thermogravimetry:  TGRUNF. 

2.  Editing  of  thermogravimetric  results:  TGEDIT. 

3.  Calculation  of  trimmed  means:  TGTRIM. 

4.  General  calculation  of  activation  energies  from 
rate  data,  provide  normal  probability  plots: 

^ TGDEPG . 

5.  Examination  of  the  trend  of  activation  energies 

with  time,  extent  of  reaction,  or  sample  weight 
(actually  a generalized  polynomial  fitting  program) 
POLGEP.  . , 

6.  Make  publication- type  tables  of  activation  energy 
data : TABLEP . 

7.  General  program  to  operate  interface  so  that 
non-routine  operations  can  be  easily  carried  out: 
BMDP. 

8.  Generalized  plotting  program  for  Versatec  printer- 

plotter:  PABS. 

TGRUNF  is  a FORTRAN  system  of  overlays  which  operates 
the  thermogravimetry  apparatus  while  running  on  an  attached 
minicomputer.  It  collects  data  and  provides  a real-time 
calculation  of  activation  energies  using  only  one  sample. 
Typically,  10  to  25  activation  energies  are  obtained  per 
experiment. 

TGEDIT  uses  cut-off  limits  input  by  the  operator  to 
edit  the  output  file  from  TGRUNF.  Activation  energies  are 
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discarded  if  the  associated  data  do  not  exceed  the  chosen 
threshold  values.  The  program  also  discards  those  parts  of 
the  data  which  fall  outside  the  desired  limits  of  degree  of 
conversion  (extent  of  reaction)  and  temperature. 

TGTRIM  is  a FORTRAN  program  (in  overlay  form)  which 
reads  the  edited  output  file  of  TGRUNF.  The  program  places 
the  activation  energies  in  ascending  numerical  order  and 
then  computes  the  weighted  and  unweighted  average  activation 
energy  as  up  to  two-thirds  of  the  outer  values  are  chopped 
off. 


TGDEPG  is  a data  processing  program  (written  in  FORTRAN) 
which  uses  rate  data  and  thermocouple  emfs  to  calculate 
activation  energies.  Input  data  and  activation  energies 
are  subjected  to  critical  examination. 

POLGEP  is  a FORTRAN  program  which  reads  data  in  almost 
any  format  (it  may  have  trouble  if  there  are  alphabetic 
words  among  the  data  it  reads  in)  and  fits  a polynomial  of 
user-chosen  degree  to  the  data.  The  polynomial  and  its 
derivative  can  be  evaluated  at  points  specified  by  the 
user. 


TABLEP  is  a FORTRAN  program  which  reads  the  'save 
file’  of  TGRUNF  and  provides  a ready- for-publication  type 
table. 

BMDP  is  a BASIC  program  which  allows  the  operator  to 
set  modules  in  the  MIDAS  interface  by  direct  commands  or 
from  a previously  made  file  on  disc,  and  to  read  specified 
voltages  available  at  the  analog  scanner  for  a specified 
number  of  times  with  a user-chosen  time  delay  between 
readings . 

PABS  is  a FORTRAN  program  which  uses  the  VERSATEC 
plotting  software  and  plotter  to  plot  information  selected 
under  user  control  from  files  in  more  or  less  any  (repeti- 
tive) format. 

I . Apparatus  Set-Up 

The  following  procedure  is  intended  to  be  an  exhaustive 
checklist  to  enable  the  user  to  progress  from  a completely 
shutdown  apparatus  to  data  collection.  Some  items  need  not 
be  performed  by  the  user  if  the  apparatus  is  already 
switched  on  and  has  not  been  disturbed  since  the  normal 
termination  of  a successful  run.  In  that  case,  go  to  step 
I. 11  or  1.12. 
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I . 1 ; Rebooting  the  Computer  Executive  System 

1. ’  Turn  on  CRT  terminal  (switch  at  rear).  Ensure  that 

the  keyboard  is  in  "remote"  with  the  "ttY"  button  (top 
row)  depressed,  and  that  it  is  not  in  "shift  lock" 
mode . 

2.  Open  doors  on  all  drives  of  flexible  discs. 

3.  Turn  on  flexible  disc  controller  (switch  at  rear). 

4.  Turn  on  computer  (key  at  right  side  -of  push-button 
panel ) . 

5.  Put  disc  with  FLOXOS  system  on  it  in  unit  0 with  the 
slot  in  the  disc  cover  to  the  rear.  Both  sides  of  the 
disc  contain  the  same  information. 

6.  Using  the  sequence:  "DTA,  characters  for  address,  ADD, 
DTA,  characters  for  contents,  WRT",  on  the  hexadecimal 
panel,  enter  the  bootstrap  loader: 


DTA,  ADD  and  WRT  are  buttons  on  the  panel.  The  address 
contents  are  numbers  given  in  base  16,  where  A^e  10 
and  Fi6  = l^io'-  The  computer  is  now  ready  to  load  the 
operating  system  into  its'  memory  from  the  disc  in 
drive  0 . 

7.  Flip  the  IPL  switch  on  the  lower  front  left  of  the 
disc  controller.  The  red  select  light  should  go  to 
drive  0.  If  it  does  not,  try  two  or  three  times,  then 
try  with  another  system  disc  or  dial  another  drive  to 
be  drive  0.  Take  care  not  to  have  two  drives  dialed 
to  the  same  number.  The  disc  drive  assignments  are 
changed  using  the  thumbwheels  at  the  front  left.  (It 
is  rare  indeed  that  you  cannot  read  in  the  system  from 
one  of  the  discs  on  one  of  the  drives.  If  all  else 
fails,  the  disc  ensemble  may  need  service. ) 

8.  Perform  "DTA,  50,  ADD"  on  the  hexadecimal  panel  to 
enter  the  starting  address  of  50  for  the  boot  strap 
program  (i.e.,  it  starts  from  the  instruction  given  in 
address  50  in  the  computer). 

9.  Press  RUN  on  the  hexadecimal  panel. 


ADDRESS 


CONTENTS 


0050 

0052 

0054 

0056 

0078 


D500 

OOCF 

4300 

0080 

16C1 
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10. 


Flip  the  IPL  switch  on  the  disc  controller.  The 
executive  system  should  read  into  the  computer. 

*FLOXOS  or  *FLOXOS-R7.1  SYS-28  should  appear  on  the 
CRT.  When  this  fails  to  occur,  try  another  disc  in 
the  drive,  or  the  disc  in  another  drive,  which  is  then 
dialed  to  be  drive  zero. 

11.  Pressing  "carriage  return"  on  the  CRT  keyboard  and 
getting  the  reply 

* -p 

* 

is  a useful  testing  of  successful  loading.  The  commands 
required  to  use  the  operating  system  are  given  in  the 
FLOXOS  manual[6].  (Not  FLOS,  which- is  an  old  version 
of  FLOXOS : ) 

12.  If  you  are  starting  with  the  computer  already  running, 
remove  old  file  assignments  the  safe  way  by  typing  the 
following  list  (after  pressing  "INI"  if  necessary  to 
get  back  to  the  operating  system): 


*CH 

FO 

*CH 

FI 

*CH 

F2 

*CH 

F3 

*CH 

DO 

*CH 

D1 

*ZU 

The  F means  flexible  disc  and  the  number  corresponds 
to  the  digit  dialed  on  the  thumbwheel  switch  for  each 
drive.  The  D means  rigid  disc;  DO  is  the  removable 
one,  D1  is  fixed.  The  operating  system  provides  the  * 
as  a prompting  character. 

1.2:  Turning  on  the  Automation  System  and  the 
Thermogravimetry  Apparatus 

1.  Power  must  be  supplied  to  both  the  power  supply  used 
for  the  photocell  in  the  electrobalance  and  to  the 
electrobalance  itself.  These  supplies  are  usually 
left  switched  on. 

2.  If  necessary,  attach  the  small  power  plug  to  the 
housing  of  the  electrobalance  on  the  Dupont  951  thermo- 
balance.  The  bulb  illuminating  the  photocell  must 
light  up  (the  light  can  be  seen  through  the  glass 
envelope).  Unsteadiness  of  > 20  pV  in  the  weight 
reading  when  the  electrobalance  is  completely  assembled 
is  usually  an  indication  that  the  contact  between  the 
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bulb  and  the  bulb  housing  must  be  improved  by  sandpap- 
ering the  bulb  base.  Normally  the  balance  is  steady 
to  1-2  mV. 

3.  Check  that  the  FAN  and  DERIVATIVE  switches  on  the 
electrobalance  console  are  turned  to  OFF.  You  may 
wish  to  check  that  power  is  indeed  being  supplied  to 
the  body  of  the  electrobalance  by  momentarily  turning 
the  fan  on. 

4.  Make  sure  that  the  ice  point  reference  cell  is  switched 
on,  or,  if  you  are  using  ice  in  a dev;ar,  that  the 
dewar  is  completely  filled  with  ice  and  the  thermo- 
couple is  in  the  middle  of  a tightly  packed  mass  of 
crushed  ice  and  water. 

5.  Turn  on  the  MIDAS  interface  (switch  on  front  left). 

The  various  outputs  of  the  interface  will  be  in  a 
random  state.  Do  not  switch  on  the  recipients  of  the 
control  voltages  yet  (i.e.,  the  flow  controller, 
temperature  controller,  and  pressure  controller). 

Press  the  ''clear"  button  on  the  front  right  of  the 
interface  if  the  error  light  is  on. 

.6.  Switch  on  the  DANA  5900  digital  voltmeter.  Turn  the 
range  switch  to  "auto".  (If  "NO"  is  in  the  digital 
display,  the  voltmeter  is  not  set  to  a high  enough 
range . ) 

7.  At  this  point,  the  MIDAS  modules  must  be  initialized. 
Although  this  could  be  done  by  attaching  the  CRT  to 
the  MIDAS  cable,  it  is  more  convenient  to  do  it  with 
the  programs  BMPD  (step  8)  or  TGRtJNF  (step  9). 

8.  To  find  the  BMPD  program  (refer  to  table  1),  type  AC 
BMPD,2D1^  on  the  CRT.  ^ means  carriage  return. 

Assign  the  usual  output  from  the  program  to  a write- 
only  unit  by  typing  AS  700.  Then  type  DO  MIDAS, Dlj^  , 
(To  erase  the  line  when  typing  on  the  CRT,  type  # 

(shift  3).  To  erase  the  latest  unerased  character, 
type  - (shift  0).) 

When  the  light  has  stopped  flashing  on  the  disc  drive 
and  BASIC  has  appeared  on  the  CRT,  type  LOAD  2 ^ and 
wait  until  BASIC  reappears.  Then  type  RUN,  and  answer 
the  question  about  title  with  a carriage  return.  When 
you  get  the  question  about  setting  MIDAS,  answer 
KOMPOIODO  : 0 ; GO  : 0 ; • 

This  will  set  all  digital-to-analog  converters  to  0 V 
dc  output  and  will  display  the  electrobalance  reading 
on  the  digital  voltraeter.  (A  list  of  the  MIDAS  com- 
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Table  1.  Initiation  of  interface  using  BMPD  and  BASIC 
(User  input  is  underlined. ) 


Kas-zesL 

BMPD. 2D  1 
->4JD0  MIIWSJU 
3572 

END  2SS2 
BIAS  38B2 
BASIC  C3-04 

LOAD  2 • • 

gA^Tc" 03-04 

Eyii 

GIVE  TITLE 

INITIALISE  INTERFACE  USIA'G  F.riFT)  AND  BAS IC  .TNTERFRTER 
JnITIALISE 'interface  using  EriPD  AND  BASIC  INTERPRETER 
SET  INITIAL  CONDITIONS,  Y OR  N? 

Y 

GIVE  COMMAND 
D0:0;G0:0; 

SET  IMITfAL  CONDITIONS,  Y OR  N? 

iL 

GIVE  INPUT  TO  BE  READ,  FINISH  UITH  -1 
£.  (TO  STOP  PROGRAM  ON  ILLEGAL  INPUT) 

IN-ERR  590 
PAUSE 
% ^ 
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mands  appropriate  to  the  thermogravimetry  apparatus  is 
given  in  table  2 . ) You  may  proceed  to  switching  on 
the  rest  of  the  apparatus  (step  11).  If  you  have  not 
given  the  illegal  input  described  in  table  1,  the 
program  will  remain  in  a state  where  it  can  transmit 
commands  to  MIDAS.  Later  you  can  either  press  "INI” 
or  enter  the  illegal  output  to  return  to  the  FLOXOS 
system,  which  allows  you  to  run  a different  program. 

9.  To  use  the  TGRUNF  program  to  initialise  the  apparatus, 
first  decide  whether  to  use  flexible  discs  or  the 
rigid  disc.  The  rigid  disc  is  prefexable. 

The  programs  which  collect  data  and  the  raw  unedited 
data  files  are  usually  kept  on  the  fixed  rigid  disc 
D1 . Typing  LI  Dl^^  will  give  a listing  on  the  CRT  of 
the  files  on  disc  D1 , but  it  will  be  hard  to  read 
because  it  goes  by  so  quickly.  A better  way  is  to 
turn  on  the  printer,  and  then  type  AS  36:^  and  LI 
3D1^  . This  will  produce  a listing  on  the  printer. 
Verify  that  the  files  TGMAIN  and  BMPD  are  on  the  fixed 
disc.  If  they  are,  go  to  step  9(c)..  If  they  are  not, 
they  will  have  to  be  copied  on  to  it  from  the  appropri- 
ate removable  rigid  disc  (TGRUNF)  as  in  9(a).  The 
removable  disc  is  usually  reserved  for  edited  data 
files  and  for  the  programs  which  perform  editing  and 
other  calculations  on  the  data.  Look  in  the  rigid 
disc  file  for  the  number  of  the  appropriate  disc. 

9a.  To  change  the  removable  rigid  disc,  switch  the  drive 
to  "OFF"  if  it  is  on  and  wait  until  the  lights  to  out 
(about  60  s)  before  installing  a new  disc.  Follow  the 
procedure  on  pp . 2 to  8 in  the  manual  "Control  Data 
Cartridge  Disk  Drive,  model  9427H",  to  install  the 
disc  in  its  drive.  Switch  the  unit  on  and  wait  for 
the  'ready'  light  to  go  on  (this  takes  about  60  s). 

The  removable  rigid  disc  is  referred  to  as  unit  DO, 
the  fixed  rigid  disc  as  unit  D1 . Type  DO  COPYTG,DO^ 
on  the  CRT.  When  this  procedure  is  finished,  install 
the  TGPROC  disc  as  the  removable  disc.  Type  DO 
SETTG,D1J  to  assign  the  needed  files  and  then  go  to 
9c. 

9b.  To  use  flexible  discs,  put  the  TGRUNF  flexible  disc  in 
flexible  disc  drive  1 and  a TGS  flexible  disc  in 
drive  2.  Use  the  appropriate  disc  for  the  material 
you  are  giving  to  degrade  i.e.,  keep  all  files  for  a 
given  material  on  the  same  disc.  Type  DO  SETUP, 2F1^ 
on  the  CRT  (refer  to  table  3).  Turn  on  the  VERSATEC 
printer  (knob  at  top  right). 
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Table  2 . MIDAS  Commands 


Reset  ->  / 

Begin  commands  ->  # 

Set  desired  pressure  D _ _ _ (in  Torr) 

Set  desired  temperature  ^ D _ _ _ 

9999  = 40  mV  (thermocouple  emf) 

Set  flow  N2  G _ _ _ 

5000  = 500  scc/min  N2 

Set  flow  ©2  ^ G _ _ _ 

5000  = 200  scc/min  02 

Set  time  interval  ^ IT  _ _ *R 

(switch  on  clock  module  set  to  "interval") 

Set  time  ■^IT______R 

hr  min  s 

Read  time  ^ IQ:;<=>?R  (output  is  hr,  min,  s as  a 6 digit  number) 

Set  voltage  to  be  measured  ^ K _ 

0 = electrobalance  1 = thermocouple  2 = pressure  3 = N2  flow 
specification 

4 = O2  flow  specification  5 = actual  N2  flow  6 = actual  0^  flow 
Set  DVM,  read  voltage  ^ MP_?A*T*U 
_ = 0 means  no  control 
_ = 3 means  program  control 
? = 0 means  no  filter 
? = 1 means  use  filter 
A = 3 means  use  0.1  V scale 
A = 4 means  use  1.  V scale 
A = 5 means  use  10  V scale 

Literals  (i.e.,  CR,  LF  and  titles)  are  rarely  necessary,  but  are 
entered  after  a $ sign. 
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Table  3a.  Setup  of  TGRUNF  from  flexible  disc. 
User  input  is  underlined. 


SETTG.JE1 


LU 

PU 

NAME 

1 

F2 

NFILED 

3 

62 

6 

00 

7 

00 

B 

FI 

TGSEET.. 

C 

FI 

TGFACT 

D 

FI- 

TGPLAT 

E 

FI 

TGPREC 

F 

FI 

TGSTAT 

ASSIGN  SAVE  FOR  E'S  (6)  AND  PARAMETERS  (9)  THEN  TYPE 
? 

»Al  PE04yg_^6F2.2.80 
»AC  PE5AVE.9f£"  " 


TGMAIN.Fj, 


>KRIJN 

'TK^'TTTle 


'RUN  TGMAIN^Fr 


Table  3b.  Setup  of  TGRUNF  from  rigid  disc. 
User  input  is  underlined. 


lCi  PU’  NAr-iE 

1 

D1 

NFILED 

2 

62 

3 

D1 

PRINT 

6 

00 

7 

00 

9 

D1 

NFILEC 

B 

D1 

TGSETU 

C 

D1 

TGFACT 

D 

D1 

TGPLAT 

E 

D1 

TGPREC 

F 

D1 

TGSTAT 

ASSIGN  SAVE  FILE  FOR  E'S  (F)  ANB  PARAMETERS  (9)  THEN  TYPE  'RUN  TGMAIN,D1' 
7 

»AL  PE82V2, EDI .1.80 
»AC  PESAVE.9D1 

GIVE  TITLE 

FACTOR  JUMP  THERMOGRAVIMTERY  FOR  PE  IN  VACUUM  PRESS<  10  MICRONS 
YEARE~Dr-GRACE--l EFS-lTD — — 
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9c.  Next  to  the  * displayed  on  the  CRT,  type  RUN  TGMAIN,XJQ 
where  XX  = FI  (flexible  discs)  or  D1  (rigid  discs). 
(Note:  from  here  on,  the  carriage  return  will  be 

omitted.  However  information  is  not  sent  from  the 
CRT  to  the  computer  until  the  carriage  return  is 
typed,  so  all  lines  must  end  with  a carriage  return). 

Answer  ^ to  all  questions  until  you  get  to  "SET  MIDAS, 

Y or  N?".  Answer  Y.  Then  type  in  KOMPOIODO :D0;G0 :G0; 
This  will  set  all  digital-to-analog  converters  to  0 V dc 
output  and  will  display  the  electrobalance  reading  on 
the  digital  voltmeter.  (A  list  of  the  MIDAS  commands 
appropriate  to  the  thermogravimetry  apparatus  is  given 
in  table  2 . ) 

You  may  leave  the  program  in  this  state  for  the  time 
being.  Later,  you  will  type  N to  exit  from  the  MIDAS 
setting  routine  and  then  will  type.  B in  answer  to  the 
question  "FORWARD  or  BACK,  F or  B?".  This  will  take 
you  back  to  input  of  the  title  for  the  run. 

10.  NOTE:  Programs  can  be  interrupted  catastrophically 
(i.e.,  the  program  must  be  read  into  the  computer 
again  before  it  can  be  rerun)  hy  pressing  "INI"  on  the 
hexadecimal  keyboard  on  the  computer.  After  pressing 
"INI",  it  is  a good  idea  to  type  *SM  0 to  zero  the 
available  computer  memory.  Programs  can  be  interrupted 
more  gently  by  typing  @ when  the  program  is  "busy"  on 
some  calculation  (but  not  when  it  is  expecting  input 
from  you,  because  @ would  then  be  read  as  an  item  of 
data  and  would  surely  give  a FORMAT  ERROR,  and  not 
when  a new  par-t  of  the  program  is  being  read  from  a 
flexible  disc).  The  program  can  then  be  continued  by 
typing  *CO.  BASIC  programs  (such  as  BMPD)  in  the 
process  of  calculation  can  also  be  interrupted  by 
hitting  the  "ESCAPE"  key  on  the  right  hand  side  of  the 
CRT  keyboard.  TGRUNF  is  a FORTRAN  program;  hit  @ 
rather  than  ESCAPE  to  stop  it. 

11.  Turn  on  the  L/N  Electromax  III  controller  (switch  on 
front  left) . Room  temperature  in  the  furnace  and  0 °C 
in  the  ice-point  reference  cell  will  give  an  on-scale 
deviation  to  the  right.  Deviation  to  the  left  means 
the  system  will  heat  up  if  the  power  supply  is  switched 
on,  and  at  this  stage  means  a malfunction  somewhere 
since  the  MIDAS  system  should  have  been  initialized  to 
a programmed  temperature  of  0 °C. 

12.  If  it  is  warranted  by  the  results  of  step  11,  turn  on 
the'Kepco  power  supply,  which  supplies  power  to  the 
furnace  as  directed  by  the  L/N  Electromax  III  con- 
troller. The  Kepco  meters  should  show  zero  output. 
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13.  If  you  are  going  to  control  the  pressure,  turn  on  the 
MKS  pressure  measuring  system  (switch  at  left  front). 

The  pressure  will  probably  read  near  to  760. 

14.  If  the  exhaust  valve  and  gas  flow  are  going  to  be 

used,  attach  the  flow  controller  to  the  end  of  the 
silvered  furnace  manifold,  then  turn  on  the  Granville 
Phillips  automatic  pressure  controller  by  depressing 
its  power  switch.  The  valve  should  automatically  go 
to  "OPEN."  If  the  run  is  to  be  in  vacuum,  do  not 
switch  on  the  pressure  measuring  system  or  the  pressure 
controller.  Attach  the  pump  assembly  to  the  furnace 
manifold.  If  vacuum  is  currently  being  applied  to  the 
apparatus,  you  will  have  to  open  one  of  the  valves  to 
release  it.  Note  1:  Runs  can  be  conducted  in  air 

simply  by  leaving  the  upstream  end  of  the  silvered 
manifold  open.  Note  2:  The  pressure  controller/ 

exhaust  valve  combination  cannot  handle  temperatures 

> 410  °C.  Cooling  of  gas  in  the  side  arm  sets  up 
oscillations  which  the  controller  is  unable  to  overcome. 
These  temperatures  can  be  used,  however,  for  pressures 
greater  than  atmospheric,  if  the  gas  flow  is  bubbled 
through  a glass  tube  in  a cylinder  of  mercury  to  give 
the  required  pressure.  In  this  case,  the  exhaust 
valve  is  not  used. 

15.  Turn  on  the  flow  controller  if  gas  flows  are  needed. 

Use  the  front  panel  channel  switch  and  the  digital 
display  (which  should  show  zero  output)  to  examine  the 
output  of  each  channel  at  this  time.  The  displays 
give  percentage  of  maximum  capacity  (500  scc/min  N2  on 
channel  1;  200  scc/min  O2  on  channel  2). 

16.  Turn  the  electrobalance  time  constant  to  1 s . 

17.  If  the  initialization  process  v/as  successful,  the  DVM 
should  now  be  displaying  the  electrobalance  signal. 

If  it  is  not,  sending  the  command  KOMPOlO  via  the  CRT 
is  the  way  to  proceed,  provided  the  program  is  still 
in  a state  where  it  will  accept  MIDAS  commands.  If 

, necessary,  rerun  BMPD  or  TGRUNF  and  display  the 
electrobalance  signal  on  the  DVM*.  If  the  pressure  is 


*There  has  been  a history  (now  apparently  corrected  satis- 
factorily) of  the  DVM  refusing  to  display  the  voltage 
applied  while  functioning  satisfactorily  in  remote  control. 
If  this  is  the  case,  enter  MT  several  times  on  the  CRT  as  a 
command  to  MIDAS  to  trigger  the  DVM  to  take  a reading,  or, 
better,  use  a portable  DVM  to  read  the  voltage  at  the  input 
to  the  interface  DVM. 
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less  than  650  mm  Hg,  open  a valve  to  the  atmosphere 
to  equilibrate  the  pressures  inside  and  out.  Place  an 
empty  pan  on  the  balance  arm  or,  better,  use  the  arm 
with  the  quartz  cup,  and  adjust  the  balance  to  -0.170  V 
by  turning  the  "SUPPRESSION"  knob  on  the  front  panel 
and  changing  riders  on  the  rear  of  the  balance  arm 
(rarely  necessary).  Keep  the  total  load  on  the  balance 
< 0.5  g.  The  DVM  on  its  most  sensitive  scale  will 
read  voltages  between  ± 0.16  V to  1 |jV. 

18.  Place  10  to  20  mg  of  sample  in  the  cup  on  the  balance 

arm.  Because  1 mg  is  equivalent  to  20  mV,  this  means 
adding  sample  to  the  cup  until  the  voltmeter  changes 
from  -0.17  V to  between  +0.03  V and  +0.23  V. 

0.23  V seems  to  work  well.  If  you  have  decided  to  use 
more  sample  than  this,  it  may  be  necessary  to  adjust 
the  suppression  so  that  the  weight  can  be  read  on  the 
most  sensitive  DVM  scale  for  the  most  important  part 
of  the  degradation  process.  (TCranspose  the  weight  of 
the  empty  pan  accordingly.)  The  TGRUNF  program. will 
automatically  select  the  appropriate  DVM  scale  to  read 
the  sample  weight.  Note  that,  as  a safety  measure, 
the  program  will  unconditionally  stop  when . the  voltage 
corresponding  to  the  sample  weight  reaches  -0.158  V. 

The  small  amount  of  sample  between  -0.158  V and  -0.170  V 
is  usually  not  worth  studying,  being  the  residual  of 
degradation  at  the  90  to  95  percent  stage.  Smooth  out 
the  grease  on  the  end  of  the  furnace  manifold  and 
attach  the  reaction  manifold  to  the  balance  housing. 

19.  Turn  the  electrobalance  time  constant  to  5 s. 

20.  If  a gas  flow  is  to  be  used,  check  the  gas  cylinders 
for  adequate  back-up  pressure  and  the  drying  tubes  for 
further  life.  Turn  the  valves  to  give  10  psi  in  the 
lines  to  the  flow  controller. 

21.  If  the  exhaust  valve  is  to  be  used,  consider  filling 
the  traps  which  would  protect  the  valve  from  contamin- 
ation. The  exhaust  may  be  connected  to  the  house 
vacuum  or  to  a vacuum  pump  by  choosing  the  appropriate 
position  on  the  rear  stop  cock  of  the  exhaust  system. 

The  pump  is  probably  the  safer  choice. 

22.  It  is  a good  idea  to  check  the  reaction  manifold  for 
tightness  and  remove  the  air  inside,  even  when  using  a 
flow  of  gas,  by  pumping  the  system  down  to  a vacuum 
using  the  vacuum  pump.  (You  will  have  to  set  the 
exhaust  stop  cocks  appropriately  to  do  this  if  you 
later  intend  to  use  a gas  flow.  Direct  the  flow  to 
the  top  manifold  in  this  case.)  Leaks  are  usually  at 
the  furnace  manifold-balance  housing  junction.  Leaks 
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exist  if  the  pyrex  reaction  manifold  is  not  perpendic- 
ular to  the  balance  housing,  if  the  0-ring  is  dirty, 
and  perhaps  if  the  swagelok  system  at  the  rear  of  the 
flow  controller  has  been  jarred.  Establish  to  your 
satisfaction  that  the  system  is  sufficiently  leak 
tight  (<  25  pm  Hg? ) by  watching  the  rate  of  pressure 
increase  when  the  pump  is  not  connected  with  the 
system. 

23.  If  vacuum  is  not  the  reaction  condition,  and  you  are 
using  the  exhaust  valve  rather  than  the  mercury  level 
to  control  the  pressure,  push  the  "CONTROL"  switch  on 
the  pressure  controller,  set  the  rate  knob  to  "MANUAL" 
and  the  "DAMPING"  knob  to  "10."  The  reference  knob 
should  already  be  set  to  0.6,  and  the  range  knob  to 
"10  V."  Turn  the  manual  knob  to  "OPEN"  to  open  the 
valve.  The  "OPEN"  light  flashes  when  the  valve  is 
fully  open.  Reset  the  stop  cocks  so  that  the  line  is 
open  to  the  pump  or  house  vacuum.  If  100  percent  N2 
is  the  reaction  condition,  turn  off  the  valve  at  the 
top  of  the  oxygen  tank  and  use  "D5000";  as  a MIDAS 
command  to  open  the  O2  channel  flow  control  valve  so 
that  the  O2  line  will  be  pumped  out. 

II.  Factor- Jump  Experiments  Using  TGRUNF 

The  factor- jump  method. [5,7]  calculates  activation 
energies  using  one  sample  and  a series  of  short  isothermal 
plateaus.  The  procedure  has  been  programmed  in  FORTRAN  as 
the  program  TGRUNF,  which  is  a series  of  overlays.  This 
program  has  been  described  briefly  in  references  [4]  and  [5]. 
Reference  [3]  describes  some  considerations  associated  with 
successful  running  of  TGRUNF  and  provides  preliminary 
results  on  several  polymers . 

The  following  paragraphs  describe  the  input  to  the 
program.  Many  of  the  considerations  involved  in  choosing 
suitable  values  for  the  input  are  given  in  reference  [3]. 

The  remainder  are  given  here.  Examples  of  inputs  and 
outputs  are  dotted  throughout  the  text.  For  more  detail, 
refer  to  the  program  listing  in  Appendix  A.  If  TGRUNF  is 
already  available  in  the  computer  because  of  the  set-up 
procedure  given  above,  answer  the  question  about  input  of 
MIDAS  commands  with  N and  reply  with  B to  the  question 
about  whether  you  want  to  go  forward  or  back  to  the  begin- 
ning of  the  program.  Then  continue  at  step  7 below. 

II.l  Detailed  Procedure 

[Assuming  computer  operating  system-  is  running.] 

1.  Place  the  overlay  disc  TGRUNF  into  disc  drive  1 if  you 
are  using  flexible  discs.  Ensure  the  TGRUNF  rigid 
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disc  files  are  available  on  the  fixed  disc  if  you  are 
going  to  use  the  rigid  disc  (this  is  the  more  reliable 
mode  of  operation).  See  Section  1.9(a). 

2.  Press  "INI"  on  the  hexadecimal  panel  to  return  to  the 
FLOXOS  executive  system.  J FLOXOS  should  print  on  the 
CRT.  Consult  section  I.l  if  pressing  INI  fails. 

3.  If  you  are  using  the  flexible  discs,  you  will  need  a 
second  disc  for  the  output  Save  file.  This  second 
disc  also  provides  space  for  the  initial  parameters 
(NFILEC)  and  for  temporary  storage  o'f  data  (NFILED). 

Put  the  appropriate  disc  in  unit  2.  Refer  to  Appendix  A 
if  you  have  to  generate  a new  disc. 

In  the  case  of  the  rigid  disc,  there  is  sufficient 
space  to  keep  all  this  information  and  the  programs  on 
the  one  disc. 

4.  Type  DO  SETTG,XX  where  XX=F1  for  the  flexible  disc  and 
D1  for  the  rigid  disc.  Refer  to  table  3.  Successful 
execution  of  these  commands  returns  * to  the  CRT. 

5.  After  * is  printed  on  the  CRT,* make  any  needed  assign- 
ments for' the  following  files: 

3 = permanent  record  of  progress  of  run,  If  you  are 
using  the  rigid  discs,  this  has  already  been  assigned 
automatically  to  the  rigid  disc  as  file  PRINT.  If  you 
are  using  the  flexible  discs,  you  may  wish  to  assign 
it  to  a disc  file  on  a flexible  disc,  probably  in 
drive  0 (e.g.,’AC  TGDAT1,3F0).  If  you  use  a flexible 
disc  file,  you  will  need  to  have  the  whole  disc  avail- 
able. Also,  it  will  be  touch  and  go  as  to  whether  the 
sample  or  the  disc  space  v/ill  be  used  up  first.  With 
the  rigid  disc  there  is  plenty  of  space  to  assign  the 
needed  75  to  100  cylinders.  You  may  also  assign  the 
print  file  to  the  printer  using  AS  362,  but  this  is 
not  recommended  because  8 s are  wasted  betv/een  data 
points  waiting  for  the  developer  in  the  printer  to 
pump  up.  The  rigid  disc  is  definitely  the  best  choice. 

6 = output  of  activation  energy  data;  energy,  sigma(E), 
sample  weight,  rates  of  weight  loss,  temperatures, 
etc.  The  usual  procedures  for  this  are;  (a)  to  use  a 
file  named  with  an  initial  letter  code  for  the  sub- 
stance, then  either  the  month,  day,  year,  or  the 
reaction  conditions  and  run  number,  e.g.,  M63077  or 
MVAC5.  The  latter  designation  is  probably  better, 
e.g.,  AL  MVAC5 , 6XX, 2 , 80  allocates  (creates)  a file 
called  MVAC5  of  line  length  80  characters,  and  two 
cylinders  long  (which  should  be  adequate)  on  disc 
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drive  XX  (F2  for  flexible  disc,  D1  for  rigid  disc). 

Note  that  all  file  names  must  be  six  characters  or 
less.  (See  the  Cautionary  Remarks  Appendix  in  this 
report  and  the  FLOXOS  write  up  for  explanations  of  AL 
and  AC,  etc.)  Two  cylinders  will  hold  96  lines  of 
output  on  the  flexible  disc,  three  times  that  amount 
on  the  rigid  disc.  Three  overflow  cylinders  are 
automatically  provided.  Each  activation  energy  and 
its  associated  data  such  as  temperatures  and  rates 
take  five  lines.  The  title  to  the  file  takes  two 
lines.  This  size  file  is  almost  always  adequate  in 
size . 

7 = file  to  log  rav;  data  for  later  reprocessing, 
rarely  used. 

6.  After  assignments  in  5 have  been  made,  type  LU,  affirm 
that  file  assignments  are  similar  to  those  in  table  3 
(with  6 and  9 included), . then  type  RUN  TGMAIN,XX  where 
XX=F2  or  Dl. 

7.  When  prompted  by  the  program,  enter  the  title  of  the 
experiment  via  the  CRT. 

8.  Complete  the  choice  of  control  parameters.  The  uses 
of  the  various  parameters  are  indicated  in  table  4. 

NOTE:  The  program  onlg  calculates  activation  energies 

when  the  temperature  has  been  measured.  It  tests  for 
input  1;  therefore,  always  assign  temperature  to  input  1 
and  the  sample  weight  to  input  0.  . 

The  choice  of  a typical  parameter  block  is  given  in 
tables  5 and  6.  File  9 is  assigned  automatically  in 
SETTG  to  be  file  NFILEC  on  drive  F2  or  Dl . If  you  did 
not  assign  save  files  and  print  units  because  you  were 
merely  initializing  the  system,  you  may  assign  them 
when  the  program  returns  to  the  executive  program  to 
allow  specification  of  the  save  file  for  the  parameters. 
The  file  assignment  commands  are  given  in  I I. 5 above. 

9.  Choose  initial  levels,  P^,  and  maximum  values  for  each 

of  the  four  factors  (temperature,  pressure,  flow-  of 
N2 , flow  of  O2 ) . Typical  values  and  the  method  of 
inputting  them  are  shown  in  table  7.  The  values  to 
use  are  discussed  below. 

9a.  Temperature:  The  ideal  starting  temperature  is  one  at 

which  the  sample  will  lose  weight  at  a rate  betv;een 
15  and  40  to  60  pV/s.  This  obviously  depends  on  the 
sample  size.  The  ideal  temperature  difference  to  use  ' 
between  adjacent  temperature  plateaus  depends  on 
keeping  both  rates  of  weight  loss  in  the  range  15  and 
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Table  4.  Initialization  of  Program  Parameters 
Using  Subroutine  Prime 


Requires  N,  I and  VALUE  in  (213,  FIO.O). 


1 .e. 

N -- 

right 

justi f ied 

to 

column 

3. 

no  decimal  point 

I — 

right 

justi ficd 

to 

column 

6, 

no  deci.'.wl  point 

VALUE 

! --  between  coluir.ns 

7 and 

16 

inclusive,  include 

decimal  point 

To  Cfianqe 

Ji 

X 

Value 

Details 

NTHCP 

1 

0 

I or  K 

-Specify  thermocouple  tyce. 

TSCALE 

2 

0 

-Specify  scale  to  apoly  to  bring 

• 

DAC  voltage  into  correspondence 
with  thermocouple  voltage  at 
temperature  controller. 

SKIP 

3 

0 

30  to  120 

-time  in  seccncs  to  «ait  between 

sets  of  readings,  i.e.,  read 
weight  every  "sKip"  seconds. 

FACTOR 

4 

1 

to  8 

order 

-Specify  oncer  in  which  inputs 

• 

on  analog  scanner  are  to  be 
read  as  factors. 

FACFU.’l 

5 

1 

to  8 

0 

-Raw  reading,  r,  untransformed. 

1 

-Use  log  (r) 

2 

-Use  r^. 

3 

-Use  1/r. 

DERIVS 

6 

1 

to  8 

0 

-No  derivative  for  the  Ith  factor 

1 

-Calculate  derivative  and 

- 

check  precision  for  Ich  factor. 

INPUTS 

7 

1 

to  8 

input 

-Specify  which  inputs  on 

nuciber  on 

analog  scanner  are  to  oe  read. 

scanner 

SCALES 

8 

1 

to  8 

seal  e 

-Scale  to  be  applied  to  voltage 

factor 

reading  on  input  to  put  it  in 
appropriate  physical  units 

HR/UJ&E 

9 

1 

to  S 

3 

-Use  C.lv  scale  on  uiW  for 

reading  this  factor  (DVM  will 
over-range  to  0.16  v; 

4 

-use  Iv  scale 

5 

-Use  lOv  scale 

NREADS 

10 

1 

to  8 

>1 

Number  of  individual  readings 
of  an  input  to  be  taken  in 
succession  (without  waiting 
"skip"  seconds) and  averagea 
together  to  give  "reading" 
and  its  estimated  standard 
deviation. 

NTERiiS 

n 

1 

to  8 

0 to  5 

-Nuniber  of  terms  to  use  in 

polynomial  which  is  tp  be  fitted  to 
the  1th  factor. 

CHI  TEST 

12 

1 

to  8 

-Target  value  in  chi  square  test 

for  Ith  factor. 

PTIMES 

13 

1 

to  8 

-Maximum  time  allowed  for  a factor 

to  steady  down  after  charge. 

PRECF 

14 

1 

to  8 

-Target  precision  for  factor 

extrapolation. 

PRECR 

15 

1 

to  8 

• 

-Target  precisions  for  rate 

ClFACTS 

extrapolations. 

16 

0 

>1 

-Number  cf  factors  to  be  measured 

in  this  experiment. 

HRATES 

17 

0 

-Number  of  rates  to  be  considered. 

TJMLIi-1 

18 

0 

.>0 

-Maximum  time  allowed  ror 

Bieasurement  of  any  one  plateau. 

16 


BAD  PTS  19 
EQUIL  20 
CHECKS  21 
ENDSIG  22 

RATMIN  23 
RATMA^X  24 
TJUMP  25 


1/0  UNITS 

25 
- 27 

28 
29 

3D 

31 

32 


33 

Hi  34 

PRECE  35 

0 


0 

>0 

-Maximum  number  of  data  points 
to  throw  away  before  resetting 
steadiness  indicators. 

0 

• 

>0 

-Time  in  seconds  to  allow  after 
resetting  of  factors  before  oata 
are  measured. 

0 

>0 

-Number  of  data  points  between 
checks  of  currently  attained 

precision. 

•Hinimum  nurr.ber  of  standard 
deviations  adjacent  readings 
must  differ  by  if  exoeriment 
Is  not  to  be  termnateo  (tests 
for  whether  sone  sample  is 
still  left). 

-Minimum  value  of  rate  of  weight 
less  to  allow.  Failure  of  this 
test  increases  the  temperature 
unconditionally  b.y  TJU.’-'.?. 

'-Maximum  value  of  rate  of  weight 
loss  to  allow.  Failure  here 
unconditionally  decreases  tne 
temperature  by  TJUMP. 

-Number  of  cec’-ees  tc  jump  temp- 
erature by  uncondi  tior.al  ly  'when 
. so  'indicated  by  Rniillh  and  RATltA 
tests. 

0 0 to  15  -Assign  logical  units  in  program 

to  actual  peripherals  on  compute 
-Input  from;  user 
-Program  instructions  to  user 
-Print  file. 

-(Disc)  file  for  buffered  experi- 
mental cerely  data  (for  later 
processing;  tnis  if^used.) 

-User  console  (for  duplicate  of 
print  file) 

. -Unit  tp  save  initalized  para- 
meters cn^(Disc)  file  for 
data  transfers  between 
subroutines . 

-SurTdTiary  of  activation  energy 
determinations. 

1 to  5 -Exponents  of  polynomial. 

>0  -Target  precision  for  activation 

energy. 

0 ' -input  required  to  stop  initiali- 

zation procedure. 


1 to  5 
0 

0 
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Table  5.  Assignment  of  Controlling 
Values  for  TGRUNF  Program. 


(Dialogue  on  terminal;  user  input  is  underlined.) 


RERD  PRPRMETERS  FPDM  SRVE  FILE? 

0=HD>  1=VES!.  GIVE  IH  II  FDPMRT 

GIVE  FILE  HUMBER  IN  I£  FDPMRT 

PRDGRRM  l.iILL  THEM  PfiUvE^  GIVE  CDHTIHUE  I.IHEM  RERnV 
FILE  MILL  BE  REMDUMB  FIRST  ' 

9^ 

PRUSE  5 
PRUSE 

»CD  file  assignments  can  be  changed  here  if , necessary . 


PRRRMETERS 

INITIRLISEIi  R 

S FDLLDM 

S ! 

NT HOP  = 

E TS 

CRLE  = 

£^3.73  SKIP=  30. 

FfiCTDRS  = 

1 £ 

0 

0 

0 0 

0 

0 

FfiCFUN  = 

0 0 

0 

0 

0 0 

0 

0 

I'ERIVS  = 

1 0 

0 

0 

0 0 

0 

0 

INPUTS  = 

0 1 

•£ 

3 

4 5 

6 

f 

SCRLES  = 

1.000  1.000 

0.  010 

1 . 0 0 0 

1 . 0 0 0 1 . 00  0 

1 . 0 0 0 

1 . 0 0 0 

HRRNGE  = 

3 3 

5 

5 

5 5 

5 

5 

NRERBS  = 

3 3 

3 

3 

3 3 

3 

3 

NTERMS  = 

£ 1 

0 

0 

0 0 

0 

0 

CHI  TEST= 

£ 0 0 0 . 1 0 0 0 . 

1 0 0 0 . 

1 0 0 0 . 

1 0 0 0 . 1 0 0 0 . 

1 0 0 0 . 

1 0 0 0 . 

PTIMES  = 

300. 0 300. 0 

30  0.  0 

300.  0 

30  0.  0 300.  0 

300.  0 

300.  0 

PRECF  = 

1 0 0 , 0 0 1 0 0 . 0 0 

1 0 0 . 0 0 1 

00.  0 0 

1 0 0 . 0 0 1 0 0 . 0 0 

1 0 0 . Cl  0 

1 0 0 . 0 0 

PRECR  = 

30. 0 0 30.  0 0 

30.  0 0 

30.  0 0 

3 0.  0 0 30.  0 0 

3 0.  0 0 

30.  0 0 

NFRCTS  = 

£ NRRTES  = 

1 TIMLIM 

C- 

00.  BRB  PTS  = 

3 EQUIL 

= £ 0 0 

CHECKS  = 

75  END  SIG  = 

5.0  RRTMIN  = 

1£.5  RRTMRX  = 

4 0.  0 

TJUMP 

TC  TD  II  = 

0.17  0£3E- 0 1 

-0.  3'£03 

7 E ~ 0 6 

0. 54S03E-1 1 

~ 0 . 5 1 t* 

70E-16 

ID  UNITS= 

5 5 

o 

7 

8 1 

6 

PDLNDM  ERR 

= 1 £ 

3 

4 

5 

PRECISION 

IN  E ACT  = £5 

. 0 0 

I'D  YOU  MRMT  TD  CHRHGE  RMV  CDNTRDL  PRRRMETERS? 

IF  hdtj  give  prrrmeter  df  zero 

IF  SO 5 EHTER  PRRRMETER  HUMBER^  ELEMENT  IN  PRRRMETER  RkPRY-. 

HEM  VRLUE  IiL  IS?  I3>  F7. 3 FDPMRT 

INTEGER  VRLUES  MILL  BE  INTEGER I SElG  GIVE  NEM  VRLUE  MITH 

HECIMRL  POINT 

13  3 9?999. 

EFvR  03  3 033  (See  Note  belo\\r.) 

RNDTHER  CHRNGE? 

0 

Note:  This  error  message  was  generated  because  the  program  converts 

the  third  quantity  in  the  line  into  an  integer.  99999  is  greater 
than  the  maximum  integer  allox-jed,  but  will  be  used  in  fact  only 
•a's  floating  point.  The  message  may  be  ignored  in  such  cases. 
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Table  6.  Typical  Choice  of  Controlling 
Values  for  TGRUNF  Program. 

(Dialogue  on  terminal;  user  input  underlined.) 


TEST  OF  RESPON  2.  ElfiSVL  ROUTINES  S^'4/?7  RESPONSE  TIMES  hND  ElfiS 
VDLTfibES  UILL  EE  DETERMINED  ‘ 

TYPE  E THERMDCOUPLE=NI-CF>-CLi-NI  T EXPRESSIONS  GOOD 
FROM  ~U.  U5  TO  +U.  u4j  u TO  4ULi  DEbPEEi  u,  '%TRELE  fiS.  c!,  S?  P.  3u7 
NES  MONOGRRPH  1 £5 . 1 R74::' 

OUTPUT  PRRRMETERS  ON  SRVE  FILE 

0=MO»1=YESj  in  II  FORMRT  'yes’  would  return  control  to 

0 executive  program  and  v/ould  allow 


reassignment  of  files  if  required. 


PfiRRMETERS 

INITIALISED  RS 

FOLLOUI 

•r**  • 

NTHCP  = 

E TSC 

ALE  = 

£43 . 73 

SKIP=  30. 

FACTORS  = 

1 

2 

0. 

0 

0 0 

0 

0 

FRCFUN  = 

0 

0 

0 

0 

0 0 

0 

0 

EERIVS  = 

1 

0 

0 

0 ■ 

0 0 

0 

0 

INPUTS  = 

0 

1 

2 

•o 

w 

. 4 5 

6 

7 

SCALES  = 

1. 00  0 

1 . 0 0 0 

0.  01  0 

1 . 0 0 0 

1 . 0 0 0 1 . 0 0 0 

1 . 0 0 0 

1 . 0 0 0 

MRRNGE  = ^ 3 

3 

5 

5 

.5  5 

cr 

5 

NRERDS  = 

3 

3 

3 

3 

3 3 

3 

•o 

NTERMS  = 

2 ■ 

1 

0 

0 

0 0 

0 

0 

CHI  TEST= 

£ 0 0 0 . 

1000.  99999. 

1 0 0 0 . 

1 0 0 0 . 1 0 0 0 . 

1 0 0 0 . 

1 0 0 0 . 

PTIMES  = 

3 0 0.  0 

3 0 0 . p 

300.  0 

300.  0 

3 00.  0 300.  0 

3 0 0 

. 0 

3 0 0 . 0 

PRECF  = 

1 0 0 . 0 0 1 0 0 . 0 0 1 

0 0 . 0 0 1 0.0 , 0 0 1 

0 0.  00  1 00.  00 

1 ij  0 . 

0 0 

1 0 0 . 0 0 

PRECR  = 

30.  00 

30.  0 0 

3 0.  0 0 

30.  0 0 

30.  0 0 3 0.  0 0 

3 0 . 

0 1 j 

3 0 . 0 0 

NFRCTS  = 

£ NRRTE 

S = 1 

TIMLIM 

= -5  0 0 

. ERD  PTS  = 

3 EG 

UIL 

= £0  0. 

CHECKS  = 

75  END 

SIG  = 

5.0  RRTMIN  = 

12.5  RRTMRX  = 

4 0 

. 0 

TJUMP  = 

TC  TO  D = 

0. 170£ 

3E-  0 1 

- 0 . ££  09 

7E~  U6 

0 . 543  09E- 1 1 

-0. 

576 

70E-16 

ID  UNITS= 

C* 

5 

O 

7 

8 1 

6 

POLNOM  EXP 

= 1 

2 

3 

4 

5 

PRECISION 

IN  E ACT 

= 25  ■ 

00 
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Table  7.  Specification  of  starting  values 

and  maximum  values  of  temperature, 
pressure,  and  the  flow  rates. 

User  input  is  underlined. 


REPlDY  TO  SET  UP  FfiCTOR  LEVELS  AND  CHANGES 
ONE  PER  LINE 

GIVE  INITIAL  T AND  mXimM  T IN  DEGREES  CELCIUS 

F7.2  FORMAT,  ONE  PER  LINE 

300. 

HWe  initial  P AMD  MAXIMUM  P IN  MM  HG  IN  F7.2  FORMAT 
MAXIMUM  VALUE  OF  0 AUTOMATICALLY  CHANGED  TO  203  MuM  HG 
800. 
sm_. 

^IVE  INITIAL  N2  FLOW  AND  MAXIMIJM  FLOIJ  IN  SCC/MIN 
MAXIMUM  VALUE  OF  0 AUTOMATICALLY  CHANGED  TO  203  SCC/MIN 
400J 
_500. 

GlV^  INITIAL  02  FLOIJ  AND  MAXIMUM  IN  SCC/MIN 

MAXIMUM  VALUE  OF  0 AUTOMlATICALLY  CHANGED  TO  203  SCC/MIN 


f ACTOR  LEVELS  AND  MAXIMA  FOLLOU: 

NO.  INITIAL  MjAXIMUM 

1 300.00  400,03 

2 S03.00  930.00 

3 400.00  500.00 

4 100.00  200.00 

GIVE  FACTOR  NUM3ER  (!  TO  4)  FOR  FURTHER  CHANGES 
0 « NO  CHANGES 

0 
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40  to  60  |jV/s.  The  actual  choice  depends  on  the 
activation  energy.  See  table  8 for  guidance.  Values 
in  the  range  5 to  15  are  appropriate. 

When  the  rate  of  weight  loss  falls  off  continuously  as 
the  reaction  proceeds,  a sequence  such  as  +8,  -6,  +8, 
-6...  will  probably  keep  the  rate  within  the  appropri- 
ate range.  When  the  rate  of  weight  loss  goes  through 
a maximum,  use  a sequence  such  as  +8,  -8,  +8,  -8...., 
unless  you  want  to  study  the  part  of  the  degradation 
occurring  after  the  maximum,  in  which  case  you  should 
use  a gradually  ascending  series. 

Remember  that  gas  flows  above  415  °C  are  not  stable 
when  the  exhaust  valve  is  used.  The  hot  gas  cooling 
in  the  side  arm  of  the  furnace-specimen  charriber  intro- 
duces instabilities  which  the  pressure  controlling 
system  cannot  keep  up  with  (partly  because  the  pressure 
must  go  past  the  desired  setting  before  the  servo- 
driver  exhaust  valve  reverses  itself  and  partly  because 
the  valve  action  is  slow). 

9b.  Pressure:  Ordinarily,  the  pressure  is  kept  constant 

at  800  to  810  mm  Hg.  Slow  flow  rates  of  N2  (50  to 
100  scc/min  = 1/2  to  1 mm/s  over  the  sample)  at  this 
pressure  seem  to  give  chemically  meaningful  activation 
energies,  free  of  the  effect  of  thermal  history  of  the 
sample.  Degradation  in  vacuum  is  generally  unsatisfac- 
tory, partly  because  the  activation  energies  seem  to 
include  the  physical  effect  of  evaporating  performed 
small  molecules  and  molecules  up  to  different  maximum 
molecular  sizes  depending  on  the  temperature,  and 
partly  because' the  surface  of  the  molten  polymer  is 
very  viscous  and  the  escaping  volatiles  form  bubbles 
which  impact  shocks  to  the  balance  as  they  burst. 
However,  changing  pressure  and/or  flow  rate  may  be  a 
useful  way  of  widening  the  range  of  oxygen  concen- 
tration available  at  the  degrading  polymer.  Slow  flow 
rates  (<  100  scc/min)  and  high  pressures  (>  600  mm  Hg) 
make  for  slow  re-establishment  of  control  by  the 
exhaust  value.  It  is  not  worthwhile  to  attempt  to 
give  a table  of  equilibration  times  under  various 
conditions  because  the  times  depend  on  the  initial  and 
final  conditions.  Ensure  to  your  satisfaction  that 
the  system  will  stabilize  within  the  time  period 
specified  by  the  EQUIL  parameter  (usually  150  to 
250  s)  or  use  the  mercury  valve  described  earlier. 

9c.  Gas  flows:  The  flow  meter  is  intended  to  be  precise 

to  within  one  percent  of  full  scale,  but  may  show  a 
bias  unless  it  is  level.  We  have  checked  the  absolute 
flow  and  feel  that  the  meter  can  be  trusted  to  the 


j 
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Table  8. 

Ratios 

in  rates 

for  various  values  of  E, 
E(kcal/mole ) 

AT  and  T. 

AT/T(°C) 

15 

• 20 

30 

40 

50 

60 

10/250 

1.32 

1.44 

1.73 

2.08 

2.49 

2.99 

15/250 

1.51 

1.73 

2.28 

2.99 

3.94 

5.18 

10/350 

1.21 

1.29 

1.47 

1.67 

1.90 

2.17 

15/350 

1.34 

1.47 

1.79 

2.17 

2.63 

3.19 
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above  one  percent.  This  implies  a minimum  flow  of 
(say)  25  scc/min  for  N2  and  10  scc/min  for  O2 . It  is 
probably  best  to  use  O2  already  diluted  with  N2  if  you 
want  reliable  rates  with  less  O2  flow  than  this. 

Choose  the  input  values  for  the  design  matrix,  ^ , 

which  is  used  to  update  the  current  values,  C.,  of 
factor  i according  to 

C.  = P.  + D. . 

1 1 ID 

where  is  the  previous  level  of  factor  i.  Refer  to 
table  9. 


11.  Enter  one  for  implementation  of  steadiness  checks  (via 

value  obtained  from  fit  of  five  latest  readings  to 
polynomial  of  maximum  degree  2 ) or  0 for  no  steadiness 
checks.  Refer  to  table  10.  When  polymers  are  degrad- 
ing in  vacuum,  it  is  usually  best  to  forego  steadiness 
checks,  which  tell  a horrible  story,  and  which  waste 
time  better  spent  on  collecting  as  much  data  as  possi- 
ble. For  well-behaved  conditions  such  as  degradation 
in  oxygen-containing  or  inert  gas  atmospheres,  steadi- 
ness checks  may  be  used,  but  may  not  be  necessary  even 
then . 

12.  Enter  1 to  implement  filtering  of  input  to  DVM  (this 
is  the  usual  mode). 

13.  Usually  enter  0 to  avoid  reading  other  experiments 
while  this  one  is  in  progress. 

14.  Usually  enter  0 (when  requested  after  next  overlay 
has  read  in)  to  forego  measurements  of  factor  response 
time . 


However,  if  you  want  to  determine  the  factor  response 
times,  enter  1 instead  of  zero  and  then  enter  for 
each  of  the  four  factors  (temperature,  pressure,  flow 
of  N2 , flow  of  O2 ) either  0 (response  time  will  be 
read  in  as  the  next  input  value)  or  1 (response  time 
will  be  measured)  as  shown  in  table  11'.  In  the  latter 
mode  of  operation,  the  program  will  set  initial  values 
of  the  parameters,  will  wait  until  their  levels  stabil- 
ize, and  will  then  set  them  to  new  values  and  wait 
again  until  their  levels  restabilize.  A typical  set 
of  results  is  shown  in  table  12.  The  stabilization 
time  is  considered  to  be  the  response  time.  This  part 
of  the  program  is  intended  to  be  used  to  check  the 
functioning  of  the  apparatus  as  it  is  being  tuned  up 
after  some  major  changes  such  as  replacement  of  the 
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Table  9.  Build-up  of  Design  Matrix 
in  TGRUNF  Program . 

(Dialogue  on  terminal;  user  input  is  underlined.) 


REFlUY  TO  PUILIi  lESIGM  MRTRIX 

I.E.»  VECTDP::  FDP  CHhMbEl-  IN  FRCIDP  LEVEL: 


MRXIMUM  CF  16  VECTDP6. 
GIVE  LINE  NUMBERS  .THEN 
FDRMRT  as.-  -rFR.  S>:> 

EMU  MITH  LINE  riUMBER  = 


□ r^E  PEP  LINE 
4 CDMPDNENTS 


“1 0. 000 


0.  000 


0.  000 


0.  000 


2 . 1£.  000  0.  000  0.  000  0.  000 

TFiPUT  NUMBER  DF  VECTORS  IN  IS  FORMAT 
£ 

itsiGN  MATRIX  FOLLOWS 
1 -10.  0 0 0 0 . 0 0 0 0 . 0 0 0 0 . 00  0 

£ IS. 000  0. 000  0. 000  0. 000 

CHANCE  FOR  FURTHER  CHANGES?  0=NO5  1=VES:.  IN 


£ FORMAT 
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Table  10.  Entering  Steadiness  Checks 
Choice  into  TGRUNF  Program. 

(Dialogue  on  terminal;  user  input  is  underlined.) 


STERHIHESS  CHECKS  TO  EE  NREE  EUR  I MG  ERTfi  COLLECTION 
GIVE  0 FDR  NO?  1 FDR  YES?  IE  FDRMRT 


1 

FILTER  INPUTS  TO  EVM?  0=ND^1=YES  <YES 
0.5  SEC.-RERIO  GIVE  IN  I£ 

1 

RERE  OTHER  EXPERIMENTS  RT 
GIVE  IN  I£  FDRMRT 


0 

FfiCTDR  LEVELS 
1 £50. 000 

£ 4 00.  000 

3 500. 000 

4 0. 000 
DESIGN  MRTRIX 

1 “10.  0 0 0 

£ 1£. 000 
STEREINES 
INPUT  FILTER 
RERE  OTHER  E 


RNE  CHRNGES 
1 . 0 0 0 
0.  00  0 
0.  00  0 
0.  000 
FOLLOWS 


FORMRT 
SRME  TIME? 

FOLLOW 

0.  0 00 
0.  00  0 


TRKES 


0=ND? 1=YES 


0.  000 
0.  000 


0.  000 
0.  000 

CHECK  = 1 WHERE  0=ND!.1=YES 
TO  EVM  = 1 WHERE  0=NO?1=YES 
PTS  = 0 WHERE  0=NDj1=YES 
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Table  11.  Procedure  for  Testing  Factor 
Responses  in  TGRUNF. 


(Dialogue  on  terminal;  user  input  is  underlined.) 

NEfilUPE  FhCTDR  FESFDMfE  TINES'^  0=MD»  1=YES 

1 


READ  IN  FAC  TOP  PESPCMJE  TINES  DP  NEASUPE  THEM'^ 
ENTER  0 FDP  PERU 

1 FOP  NEASUPE 

IN  II  FORMAT  FDR  TEMP  PARANETEP 


READ  IN  FACTOR  RESPONSE  TINES  DR  NEASUPE  THEN? 
ENTER  0 FDR  REAP 

1 FDR  NEASUPE 

IN  11  FORMAT  FDR  PRESS  PARAMETER 

1 


REAP  IN  FACTOR  RESPONSE  TINES  DR  MEASURE  THEN? 
ENTER  0 FOR  REAP 

1 FDR  MEASURE 

IN  II  FORMAT  FOR  NE  FLOI.J  PARAMETER 

1 


REAP  IN  FACTOR  RESPONSE  TINES  DR  MEASURE  THEN'' 
ENTER  0 FDR  REAP 

1 FDR  NEASUPE  ' • 

IN  II  FORMAT  FDR  D£  FLO!.l  PARAMETER 

JL 

TARGET  VALUES  OF  FACTORS  IN  RESPDN  APE: 

1 1 £50.  0 

1 £ £7  0.0 

£ 1 400.  0 

£ £ 450.  0 

. 3 1 £00. 0 

3 £ £4  0.  0 

4 1 50.  0 

4 £ 60.  0 

no  YOU  UANT  TO  CHANGE  ANY  VALUES? 

IF  SDj  ENTEP: 

FACTOR  NUNPERi  1=T-.  £=F>  3=FNE>  4 = FD£ 

1 DR  £ FDR  FIRST  DR  SECDNP  VALUE  OF  A FACTOR 
VALUE  ITSELF 
ALL  IN  ';£I3<F10.0> 

. 7/^  END  I.IITH  FACTOR  NUMPER  OF  ZERO  '.’y. 

0 
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Table  12.  Output  of  Factor  Response 

Checking  Routine  in  TGRUNF. 


FfiCTDR  RE: 
FfiCTDR 
FfiCSET 

250.  0 
14  iiB 
FflCSET 

270.  0 
14  “II 
TEMP 
FfiCSET 

4 00.  0 
14  “Ii 
FfiCSET 


PDMSE  TIMES 
LDW  HIGH 


41S5; 


4558 ; 
250. 


4 0 0 0 : 


5 0 0 0 1 


0 0 0 0 5 


14  «G 
FfiCSET 

0.  0 
14  iJG 
FfiCSET 

450.  0 

14  an  4500: 
FfiCSET 

500.  0 

14  50  0 0: 

FfiCSET 

0.  0 
14 
PRESS 
FfiCSET 

200.  0 

14 

FfiCSET 

24  0 . 0 
14  ::G 

M2  FLDUI 
FfiCSET 

50.0 

14  -G  1250? 


rb  tilJUIj: 


24  00: 
2 0 0 . 


FDLLDf.i: 

TIME  CHISQ  MEfiSURED?  TIMES  t CHI  VfiLUES 
(the  heading  applies  only  to  the  long  lines  belov/.) 

set  temperature  to  low  then  high  values . 


1C-  o O 1 C*  c- 


c’£'4 . 


oo 


309. 


1 18. 


3 


Set  pressure,  N2  flow  and  O2  flow  under  program 
control.  These  must  all  be  set  so  the  pressure 
response  is  measured  under  -well  defined  conditions 
The  factors  indicated  by  the  last  number  in  the 
line  below  FACSET.  The  level  of  the  factor  is 
the  first  number  in  these  lines. 


3 


0 0 ij  0 j 

4 0 0.  450. 


1 i'  c*  • 5 0 1‘  1 • U 1 1 8 8 . c! 4 . i"  c 8 o 4 . 89  U 5 4 


Set  flow 


126.  500.4 


Set  O2  flov; 


170, 


218 


78c , 


RfiMGE  CHRMGE  FRDhf  5 TO  4 DM  INPUT  6 3::I:$ 


FfiCSET 

60.  0 

14  ::G  1500; 

D2  FLDUI  50. 


60. 


95.  4 


85. 


( r 


1 03. 


37. 
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furnace.  It  is  rarely  done  just  before  the  real 
experiment  is  begun  but  could  be  used  to  check  how 
well  previously  untried  experimental  conditions  would 
be  controlled.  In  particular,  it  determines  the 
probable  extrapolation  time  between  plateaus. 

15.  Enter  your  choice  for  the  treatment  of  bias  voltage. 
Refer  to  table  13. 

1 = set  bias  voltage  equal  to  zero 

2 = read  it  in 

3 = measure  it 

0 = terminate  input,  no  more  bias  voltages  need 
be  considered. 

The  usual  input  is  1 for  each  parameter  for  which  a 
voltage  will  be  read.  This  sets  that  particular  bias 
voltage  to  zero.  The  parameters  are: 

sample  weight 
thermocouple  reading 
pressure 

specified  flow  on  channel  1 (N2 ) 
specified  flow  on  channel  2 (O2) 
actual  flow  on  channel  1 
actual  flow  on  channel  2 

Alternatively,  the  bias  voltages  on  some  or  all  of 
. these  lines  can  be  determined.  Refer  to  table  13  for 
the  sequence  of  operations. 

If  you  give  2 above,  the  bias  voltage  and  its  standard 
deviation  must  then  be  given  on  the  next  two  lines, 
each  with  a decimal  point  and  carriage  return. 

If  you  enter  3 above,  the  program  will  set  the  param- 
eter to  a preselected  value  (100  °C  for  temperature, 

400  mm  Hg  and  300  scc/min  N2  for  pressure,  0 scc/min 
for  the  flov7s  of  N2  and  O2  ) and  will  correct  the 
actual  reading  by  the  preset  value  to  obtain  the  bias 
voltage.  It  will  indicate  problems  with  unsteadiness 
(as  defined  by  the  values  of  PTIME  and  CHTEST  in  the 
control  parameter  table  input  in  paragraph  8 ) . 

After  the  bias  voltages  have  been  determined,  the 
various  factor  levels  are  not  reset.  They  will  be  set 
to  your  chosen  values  as  soon  as  the  next  overlay  is 
read  in.  A typical  output  for  the  determination  of 
bias  voltages  is  given  in  table  14.  The  results  are 
saved  and  used  in  the  program  for  the  current  run 
only.  They  must  be  given  to  the  program  again  the 
next  time  it  is  run  (the  program  starts  by  initializing 
all  its  parameters). 
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Table  13 


Initialisation  of  TGRUNF  Routine 
to . Determine  Bias  Voltages. 


(Dialogue. on  terminal;  user  Inputs  are  underlined.) 

THIS  ROUT I HE  IS  SET  UP  FDR: 

UEIbHT  hS  ‘•FRCTDP"  1 
TEMPEPhTUPE  R::  PRC  TOP  E 
PRESSUPE  RS  FRCTOP  3 
FLDl.-l  CHRHMEL  1 RS  FRCTDR  4 
FLDl.-l  CHRMMEL  E RS  FRCTDP  5 

FfiCTDRS  E TD  S RRE  PRESET  FDR  THE  ElhS  MERSUREMEMT 

FDR  ERCH  FRCTDR?  IS  EIRS  VDLTRGE  TD  EE: 

SET  = 0 


NERSUPEIi  < 
DR  RE RE  IN 

J=E> 

'::  J=3>  ? 

TERMIHRTE 

INPUT  l.l 

ITH 

j= 

0 

GIVE  J FDR 

£ 

FRuTDR 

1 

IN 

11 

FDRMRT 

GIVE  J FDR 

£ 

FRCTDR 

•-I 

c. 

IN 

11 

FDRMRT 

HsIVE  j FDR 

FRCTDR 

IN 

11 

FDRMRT 

GIVE  J FDR 

£ 

FfiCTDP! 

4 

IN 

11 

FDRMRT 

“nSIVE  J FDR 
£ 

FRCTDR 

cr 

.^1 

IN 

1 1 

FDRMRT 

GIVE  J FDR 

FRCTDR 

6 

IN 

11 

FDRMRT 

EIRS  VDLTfii 

BE  riETERr'IINHTIDNS 

: FDLLDI/ 

FRCSET 

1 00.  0 

14  1541? 

FRCSET 

400.  0 

1 4 ijii  4 fi  n 0 : 

FRCSET 

300.  0 

14  30  00: 

FRCSET 

300.  0 

14  ::G  500  0: 

FRCSET 

100.  0 

14  -G  £50 Oj 
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Table  14.  Determination  of  bias  voltages 
User  input  is  underlined. 


THIS  ROUTINE  IS  SET  UP  FOR: 

UEIGHT  ftS  "FftCTCR'  1 
TEMPERATURE  AS  FACTOR  2 
PRESSURE  AS  FACTOR  3 
FLOW  CHANNEL  1 AS  FACTOR  4 
FLOU  CHANNEL  2 AS  FACTOR  5 

FACTORS  2 TO  5 ARE  PRESET  FOR,  THE  BIAS  MEASUREMENTS 

FOR  EACH  FACTOR.  IS  BIAS  VOLTAGE  TO  BE: 

SET  = 0 (J=l) 

MEASURED  (J=2) 

OR  READ  IN  (J=3)? 

TERMINATE  INPUT  UITH  J=0 

GIVE  J FOR  FACTOR  1 IN  II  FORMAT 

2 

~GIVE  J FOR  FACTOR  2 IN  II  FORMAT 
2 

GIVE  J FOR  FACTOR  3 IN  II  FORMAT 

e 


BIAS  VOLTAGE  DETERMINATIONS  FOLLOU: 


FACSET 

IB0.0  1 

14  1541; 


$$$  RANGE  CHANGE  FROM  3 TO  4 ON  INPUT  0 SSS 


BIAS  VOLTAGES  AND  SIGMAS  FOR  FACTOR  INPUTS 
FACTOR  VOLTAGE  SIGMA 

1 -0. 173S267E-i-Co  0.5773553Ev01 

.2  0. 29242 15E+02  0.35118333+81 
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16.  Set  MIDAS  as  and  if  required  by  typing  MIDAS-type 
commands  in  directly  from  the  CRT  (see  table  15).  The 
format  of  the  commands  is  given  in  table  2. 

17.  Input  the  initial  and  final  sample  vzeights  in  micro- 
volts. Refer  to  the  first  half  of  table  16.  Although 
the  factor-jump  method  does  not  require  the  initial 
and  final  sample  weights  to  determine  an  activation 
energy,  these  quantities  are  necessary  to  calculate  a 
degree  of  conversion  and  thus  relate  the  activation 
energy  in  this  sample  to  that  obtained  in  other  samples. 

18.  Give  the  appropriate  information  for  preconditioning 
the  sample.  Refer  to  the  second  half  of  table  16.  If 
you  are  using  the  exhaust  valve,  use  the  precondi- 
tioning time  to  adjust  the  value  manually  to  obtain 
the  desired  pressure  (using  the  CLOSE-OPEN  knob  on  the 
Granville-Phillips  pressure  controller)  and  then  turn 
the  RATE  knob  on  the  controller  fully  clockwise  to 
give  the  maximum  response  of  the  value  to  changes  in 
pressure.  Once  the  mercury  valve  has  been  set  at  a 
given  immersion  depth  of  the  exhaust  tube  in  the 
mercury,  it  needs  no  further  attention  until  a new 
pressure  is  required. 

This  is  the  end  of  the  operator  input;  the  program  now 
directs  the  flow  of  the  experiment.  Note,  however,  that 
the  program  will  stop  if  the  sample  weight  goes  more  nega- 
tive than  -0.158  V,  if  adjacent  weight  readings  do  not 
differ  by  (ENDSIG) (a^) , or  if  the  maximum  allowed  value  of 

a parameter  is  exceeded.  Any  of. these  conditions  provides 
a normal  termination  of  a run.  In  fact  the  run  continues 
until  one  of  these  conditions  occurs. 

III.  Editing  of  Activation  Energy  File  from  TGRUNF 

The  program  TGRUNF  cannot  influence  the  course  of  the 
experiment  until  it  has  obtained  a result.  For  example, 
until  it  obtains  a rate  of  weight  loss  below  the  m.inimum, 
it  will  not  adjust  the  temperature  categorically  upward. 

Even  though  such  a low  rate  of  weight  loss  has  been  obtained, 
the  TGRUNF  program  still  calculates  the  activation  energy. 

It  is  best  therefore  to  set  the  allowed  minimum  rate  above 
the  lowest  rate  which  still  gives  reliable  results.  The 
output  file  written  by  TGRUNF  can  later  be  "edited"  using 
the  program  TGEDIT. 

TGEDIT  is  written  in  FORTRAN  and  is  listed  in  Appendix  B. 
It  allows  corrections  to  be  made  to  all  temperatures  in  the 
file,  with  subsequent  recalculation  of  activation  energies. 

It  allows  activation  energies  to  be  discarded  for  the 
following  reasons: 


e 
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Table  15.  Initialisation  of  Interface  Using  Commands 
Transmitted  by  TGRUNF,  then  Return  to 
Beginning  of  TGRUNF  Program. 

(Dialogue  on  terminal;  user  input  is  underlined.) 


SET  iniTIRL  CONDI  TIDr^S  ON  MIDRS?  Y OR  H? 

X 

GIVE  COMMRND^  3r.  CHREhCTEP;  MRXIMUM 
SHRRP  SIGN  I.IILL  EE  RDDED  BY  COMPUTER 
KOMPQUU 

33  i^KOMpnoo 

SET  INITIRL  CONDITIONS  ON  MIDRS?  V OR  N? 

Y 

’"give  COMMRND.-  36  CHRRRCTEPS  'MRXIMUM 
SHRRP  SIGN  UILL  BE  RDDED  BY  COMPUTER. 

DO:  o; 

33  i^DOi  0? 

SET  ’INITIRL  CONDITIONS  ON  MIDRSj  Y.  OR  N? 

Y 

nGIVE  COMMRND?  36  CHRRRCTEPS  MRXIMUM 
SHRRP  SIGN  UILL  EE  RDDED  BY  COMPUTER 
GCi:  O; 

3E:  ::Gui  0? 

SET  INITIRL  CONDITIONS  ON  MIDRS.-  Y OR  N? 

M 

**GO  FORURRD  DR  BRCK?  ENTER  =P=  OR  =B= 

E ■ 

"give  TITLE  FOR  RUN?  £ LINES?  7£  CHfiRS^LINE  MRXIMUM 
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Table  16.  Initialisation  of  MIDAS,  specification 

of  Scunple  weight  and  bake-out  parameters 

User  input  in  underlined. 


SET  INITIAL  CONDITIONS  ON  MIDAS.  Y OR  N? 

Y 

“give  command,  36  CHARACTERS  MAXIMUM 
SHARP  SIGN  MILL  BE  ADDED  BY  COMPUTER 
KiMPeao 

53  K1MP030 

SET  INITIAL  CCNDITIOHS  GN  MIDAS,  Y OR  N? 

N 

*^0  FORUARD  OR  BACK?  ENTER  =F-  OR  =B= 

F 

GIVE  INITIAL  AND  FINAL  L'EIGHTS  IN  MICROVOLTS,  WITH  SIGN 
ON  2 LINES  IN  FI5.0  FORMAT. 

INITIAL  LJEIGHT  OF  0 WILL  CAUSE  PROGRAM  TO  USE  FIRST 
UEIGHT  READING  IN  DATA  COLLECTION  AS  INITIAL  UEIGHT 
I.E.,  AFTER  BAKEOUT  OF  SAMPLE 

?00039. 

-1750SQ. 


INITIAL  AND  PINAL  LPiGHTS  ARE:  309093.  -I75330. 

OK  OR  NOT,  Y OR  N? 

DO  YOU  UANT  PRECONDITIONING  OF  THE  SAMPLE?  Y OR  M? 

X 

GIVE  BAKEOUT  TIME,  TEM.^ERAUJRE,  PRESSURE,  FLQIJ  N2,  FLOW  02 
EACH  ON  A SEPARATE  LINE  IN  FORMAT  F13.0 

1839. 

29.0. . 

80.0. 

438. 

TeeS 

BAKE  Tir;p  IN  SECONDS  IS  1800. 

BAKE  TEMPERATURE  IN  DEGREES  CELCIUS  IS  299. 

BAKE  PRESSURE  IN  MM  HG  IS  809. 

FLOU  OF  N2  IN  SCC/MIN  IS  490. 

FLOIJ  OF  02  IN  SCC/'MIN  IS  183. 

OK  OR  NOT,  Y OR  N? 

Y 
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(1)  the  extent  of  reaction  does  not  fall  within 
user-specified  limits; 

(2)  a rate  of  weight  loss  is  below  a user-chosen 
minimum; 

(3)  the  percentage  error  in  at  least  one  of  the  rates 
(i.e. , 100  a(r)/r  is  above  a user-chosen  maximum); 

(4)  a temperature  is  below  a user-chosen  minimum 

(5)  a temperature  is  above  a user-chosen  maximum 

(6)  an  estimated  error  in  a temperature  is  above  a 
user-chosen  maximum;  and 

(7)  the  estimated  error  in  the  activation  energy  is 
above  a user-chosen  maximum. 

Test  1 may  be  used  to  select  activation  energies  when 
the  degradation  contains  several  steps  or  when  the  sample 
or  the  rate-determining  process  slowly  changes.  Tests  2 
and  3 obviously  ensure  prespecified  precision  in  the  rates 
of  weight  loss.  Tests  4 and  5 are  designed  to  cull  out 
activation  energies  over  a small  range  in  a degradation 
which  consists  of  several  different  chemical  steps.  Test  6 
ensures  that  the  temperatures  are  adequately  determined. 

Test  7 serves  to  discriminate  against  cases  which  were 
border-line  but  passed  in  tests  2,  3 and  6.  In  these  cases 
the  errors  pile  up  in  a (E). 

The  TGEDIT  program  has  been  found  very  useful  in 
culling  out  untrustworthy  measurement  according  to  prespeci- 
fied and  more  or  less  objective  criteria.  It  produces  an 
edited  version  of  the  input  while  leaving  the  original 
input  file  intact.  The  sequence  of  operations  is  shown  in 
Appendix  B. 


IV.  Estimation  of  Average  Activation  Energy  by 
Trimmed  Means : TGTRIM 

One  accepted  [8,9,10]  way  of  estimating  the  mean  of  a 
set  of  numbers,  some  of  which  may  be  in  error,  is  to  place 
the  numbers  in  order  of  increasing  magnitude  and  calculate 
the  mean  as  more  and  more  extreme  values  are  removed  from 
consideration.  The  system  of  FORTRAN  overlays  TGTRIM  does 
just  that  for  activation  energies  contained  in  an  output 
file  from  TGRUNF.  The  listing  of  the  program  is  given  in 
Appendix  C,  which  also  contains  examples  of  the  input  and 
output . 
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The  program  calculates  the  weighted  and  unweighted 
means  and  their  estimated  standard  deviations  for  the 
surviving  subset.  It  also  calculates  the  corresponding 
values  for  the  Winsorised  subset,  where  the  rejected  values 
have  been  replaced  by  the  nearest  unrejected  value.  In 
this  case,  standard  deviations  are  estimated  using  the 
number  of  degrees  of  freedom  associated  with  the  subset 
rather  than  the  complete  set.  The  most  reasonable  values 
to  quote  are  the  unweighted  mean  from  the  trimmed  set  and 
the  unbiased  (i.e.,  unvzeighted)  estimate  of  the  standard 
deviation  from  the  corresponding  Winsorised  subset. 

V.  General  Calculations  of  Activation  Energies 
from  Rate  Data:  TGACTE 

The  program  TGDEPG  [1]  calculates  activation  energies 
from  temperature  and  rate  data.  Also,  it  uses  normal  order 
statistics  and  probability  plots  in  a partly  intuitive  and 
definitely  exploratory  attempt  to  provide  a diagnostic 
procedure  for  removing  atypical  values.  Examples  of  its 
use  and  the  program  listings  are  given  in  Appendix  D.  The 
activation  energy  and  its  standard  deviation  are  obtained 
from  the  Arrhenius  equation  using  data  which  pass  a test 
based  on  assigned  standard  deviations.  The  program  esti- 
mates an  absolute  scale  for  the  standard  deviations  associ- 
ated with  data  points,  assuming  in  the  present  version*  that 
the  distributions  of  log  d [2],  the  data,  and  the  derived 
E values  are  all  normal.  Some  idea  of  the  scale  of  standard 
deviations  is  required  if  data  are  to  be  examined  for 
atypical  points  and  if  the  standard  deviation  of  the 
weighted  average  is  to  be  meaningful  (as  is  required  when 
various  weighted  averages  are  to  be  compared).  Of  course, 
it  is  good  practice  to  examine  the  conditions  generating 
atypical  data  for  insight  into  the  functioning  of  the 
apparatus  or  changes  in  the  rate  limiting  step  during  the 
experiment.  It  is  also  good  practice  to  redo  experiments 
which  contain  ambiguous  results,  and  to  replicate  experi- 
ments in  general  to  obtain  an  independent  estimate  of  the 
precision.  Although  several  methods  for  detection  of 
outliers  exist  [12-18],  none  makes  use  of  standard  devia- 
tions on  individual  values.  In  particular,  Tietjen  and 
Moore  have  shown  [16]  by  computer  analysis  of  5000  synthe- 
sized data  sets  that  their  test  is  among  the  most  powerful 
for  detecting  inhomogeneity,  in  univariate  samples.  Specif- 
ically, they  mixed  random  selections  from  a population 


* 

A version  with  the  more  appropriate  t statistics  has 
stubbornly  proved  to  be  too  large  for  the  computer.  However, 
for  more  than  10  to  15  data,  there  is  little  to  be  gained  by 
substituting  t for  normal  statistics. 
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distributed  normally  with  mean  0 and  standard  deviation  1 
with  selections  from  a normal  population  of  mean  k and 
standard  deviation  1,  where  \ = 0, 1,2,3,  and  4,  in  propor- 
tions ranging  from  'N'  10  to  25  percent.  They  compare  the 
sums  of  squares  of  deviations  from  the  average  value  for 
the  complete  set  of  data  and  a subset.  In  this  way  they 
tend  to  avoid  the  "masking"  effect  several  outliers  on  one 
end  of  a sample  would  have  on  the  sample  mean  (for  the 
subset  the  calculated  mean  will  approach  that  of  the  popula- 
tion in  favorable  cases).  The  ratio  of  sums  of  squares  of 
deviations  for  subset  and  complete  set  is  then  used  in  an 
F-like  test  to  see  if  the  subset  and  complete  set  differ 
significantly. 

Their  test  has  not  been  applied. as  a routine  procedure 
here  for  several  reasons: 

1.  "Unfiltered"  TG  data  generally  do  not  conform 
exactly  to  the  required  conditions  of  normality 
and  univariance. 

2.  The  high  discrimination  of  their  test  may  be  a 
liability  if  the  quantities  being  tested  are  only 
approximately  normally  distributed  or  do  not  all 
have  the  same  standard  deviation. 

3.  We  wished  to  be  able  to  make  use  of  even  approxi- 
mate estimates  of  the  standard  deviations  of  the 
experimental  quantities  and  derived  quantities. 

This  requires  scaling  of  DS  or  DE  values  (see 
later  for  their  definitions)  to  their  expected 
values  as  calculated  from  order  statistics. 

4.  The  computer  program  must  be  kept  as  small  as 
possible  so  it  will  fit  in  the  laboratory  computer. 

5.  Their  procedure  and  the  procedure  in  TGDEPG  have 
given  identical  results  on  the  few  TG  data  sets 
subjected  to  both  tests.  Hov/ever,  because  of 
their  avoidance  of  the  masking  effect,  their  test 
is  expected  to  be  superior,  especially  when  the 
data  are  exactly  normal  and  univariate.  For 
example,  when  applied  at  the  normal  operating 
level  ('^  2 percent),  the  test  in  TGDEPG  does  not 
detect  outliers  in  the  eight  results  of  uranium 
isotope  analysis  quoted  in  reference  [15];  however, 
the  methods  in  references  [12-15  and  17-18]  also 
fail  to  discriminate  among  the  data. 

Values  of  the  activation  energy  E^  obtained  as  the 

reaction  proceeds  may  reveal  the  existence  of  an  induction 
period,  vary  randomly  about  the  population  mean  in  the 
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40  to  70  percent  region  of  degradation,  or,  if  a monatomic 
trend  with  extent  of  reaction  or  time  is  present,  be 
somev7hat  smoothly  distributed  about  the  population  mean, 
and  change  as  the  remains  of  the  sample  react.  Also,  in 
a passive  data  collection  (v/here  the  data  have  no  influence 
on  the  control  of  the  experiment),  averaging  the  values 

is  sometimes  difficult  because  the  6^  values  may  vary 

widely.  This  is  usually  because  of  a fall  off  in  the 
magnitude  of  the  rates  as  the  sample  size  decreases  but  may 
also  arise  because  of  lower  viscosity  as  the  sample  degrades. 
The  contribution  of  each  value  to  the  average,  E^,  must 

therefore  be  weighted  to  reflect  differing  uncertainties 
and  to  maximize  the  reliability  of  the  value  obtained  for 
E . Further  the  standard  deviation,  d=,  of  the  weighted 

average  value,  E^,  must  be  estimated  to  reflect  the  spread 

of  the  individual  E.  values  about  E . First,  however,  an 

attempt  should  be  made  to  identify  unacceptable  values  of 

E.  and  the  associated  estimated  standard  deviation,  a„ . . 

1 El 

In  devising  our  procedure  we  have  had. to  make  several 
simplifying  assumptions  which  \ie  point  out  as  the  need 
arises.  The  procedure  should  be  considered  to  be  heuristic 
rather  than  rigorously  derived. 

We  assume  that  in  TG  each  experimental  datum  (sample 
weight,  temperature)  is  a random  (i.e.,  independent)  selec- 
tion from  a population  of  potential  experimental  data  which 
are  distributed  according  to  a nomal  type  of  distribution. 

We  also  assume  that  the  same  is  true  for  results  such  as  E^ 

which  are  derived  from  the . experimental  data  even  though 
the  experimental  data  have  been  subjected  to  several  trans- 
formations to  provide  values  of  E^ . Therefore,  we  proceed 

as  though  the  majority  of  our  experimentally  derived  results, 
E^,  belong  to  the  same  population  and  assume  that  differ- 
ences between  individual  E^  values  and  the  weighted  mean, 

E^,  follow  the  normal  distribution  law.  The  appropriate- 
ness of  this  assumption  is  indicated  by  the  usual  linearity 
of  the  probability  plots  which  are  produced  by  the  TGDEPG 
program  and  to  some  extent  by  the  small  magnitude  of 
the  standard  deviation  assigned  to  E^. 

One  possibility  is  to  assume  that  all  E^  values  have 

the  same  standard  deviation  (i.e.,  that  they  are  drawn  from 
the  same  sample  population)  and  are  normally  distributed. 

Then  the  appropriate  statistics  to  define  the  collection  of 
values  are  the  arithmetic  average,  E,  and  the  "unbiased" 
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estimate  of  its  standard  deviation 

0(E)  = { U(E-E^)2]/[n(n-l)]!*5, 

where  there  are  n values  of  . The  95  percent  confidence 

limits  on  the  range  of  E are  estimated  from  a(E)  and  the 
appropriate  value  from  the  t distribution  with  n-2  degrees 
of  freedom. 


The  E^  values  themselves  also  have  estimated  standard 

deviations,  obtained  in  the  case  of  our  TG  data  by  propaga- 
tion of  errors  estimated  from  the  fit  of  a polynomial  to 

the  raw  data.  When  the  individual  standard  deviations  d_ . 

El 

on  the  data  E^  are  different,  each  E^  is  said  to  come  from 

a different  parent  distribution  (with  different  a„ . but  the 
same  mean,  |j ) . In  this  case,  we  minimize 


by  varying  p . 


X 


2 


That  is. 


/ 


and  our  estimate  of  the  average  (weighted  in  this  case)  is 
given  by 


M = 

Thus,  the  weighting  factors, 

mental  data  E^  are  ~ ^ • 

^i 

2 

formula,  the  variance,  a^, 

£i 

given  by 


1 a 


Ei 


I 

i 


^ 


Ei 


w^,  for  combining  the 


From  the  propagation 


experi- 
of  error 


of  this  weighted  average  is 


o|  = , 

SO  that  the  error  estimated  in  the  weighted  average  depends 
on  the  scale  of  the  individual  standard  deviations.  We 

2 

stress  that  the  equations  for  E^  and  are  best  estimates 
only  when  the  E^  values  are  normally  distributed  and  when 
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the  a„.  values  are  well  known.  The  error  propagation  path 

in  the  TG  factor- jump  procedure  is  tortuous  (through  extra- 
polation and  derivatives)  and  the  initial  assessments  of 
error  in  the  primary  data  of  sample  weight  and  sample 
temperature  may  be  crude.  Also  the  sample  behavior  may 
change  during  the  experiment.  Because  the  absolute  values 
of  the  derived  standard  deviations,  a„ . , may  not  adequately 

hiX 

represent  the  observed  variation  in  the  values  we  will 

need  to  estimate  the  scale,  k,  of  these  derived  standard 
deviations  i.e.,  . = ka„ . . An  estimate'  of  the  absolute 

scale  of  the  values  can  be  obtained  by  relating  the 

experimental  distribution  to  the  normal  distribution.  This 
also  allows  us  to  examine  the  data  for  atypical  data  points. 


After  calculation  of  d„.  (in  the  TGRUNF  program)  we 
can  form  the  statistic 


DE. 


(1) 


where  k,  the  scale  of  is  initially  set  equal  to  unity 

but  is  then  refined.  DE  is  essentially  the  quantity  T in 
references  [12-16].  If  all  values  of  a„.  were  known  exactly 

tiX 

and  all  values  of  E^  came  from  populations  with  the  same 

mean,  E , then  the  DE . statistic  would  follow  a normal 
w 1 

distribution  (N).  Jn  practice  we  have  to  estimate  cr^^,  and 
our  estimate,  kd„ • , would,  if  replicated,  vary  according  to 

hiX 


a X distribution.  DE^  is  then  seen  to  be  distributed 

according  to  N/x,  which  is  a t-distribution.  For  a reason- 
ably large  number  of  points  (say  > 10  or  15),  the  t distri- 
bution approximates  a normal  distribution.  For  various 
reasons,  we  therefore  assume  that  the  DE^  statistic  is 

normally  distributed  and  thus  that  the  relative  probability 
of  observing  the  particular  value  E.  with  standard  deviation 
ka„.  will  be  given  by 


2 


1 ■ 1 Ei  - Ew 

- ag.  2r.  - 2 

The  .probability  of  observing  a value  of  E . less  than 

z 

E^  + is  given  by  P.  dz.  This  is  illustrated  for 

— 00 

the  second  extremum  by  the  shaded  area  in  figure  1.  The 
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Figure  1 


expected  value  for  each  DE^  quantity  may  be  obtained 
using  order  statistics  (see  reference  [19])  if  the  DE^  quan- 
tities are  first  arranged  in  increasing  magnitude.  For  n 
observations,  we  would  expect,  on  the  average,  that  the  area 
under  the  probability  curve  in  figure  1 would  be  divided 
into  n + 1 equal  areas.  Therefore,  the  actual  DE^  quanti- 
ties should  be  related  to  the  corresponding  values,  z^,  of 

the  abscissa  which  divide  the  area  under  this  curve  into 
n + 1 equal  parts 


z 

i.e.,  Pdz'\'i/(n  + l) 
*-00 


In  practice,  we  estimate  the  z.  values  from  the  relation- 
ships [20]  ^ . . 


P 


— 00 


P dz 
z 


(i  - 7t/8)/(n  + 1 - n/4)  for  i >_  2 or  n ^ 10 


or  (3i  - l)/(3n  + 1)  for  i = 1 and/or  n < 10  , 


and 


z^  = 4.91(p 


0-14  . (i.p)0-14) 


If  all  E^  values  come  from  parent  populations  with  the 

same  mean,  ideally  there  should  be  a linear  relationship 
between  DE^  and  z^,  with  the  line  passing  through  the 

origin.  A plot  of  DE^  vs  z^  is  known  as  a probability 

plot.  Here  we  use  the  normal  (i.e,  Gaussian)  probability 
plot  (see  references  [21  and  22]).  Values  of  DE^  belonging 

to  a population  with  a mean  different  from  that  of  the  main 
body  of  data  will  probably  be  found  as  extreme  values  in 
the  set  of  DE  values.  Hence,  less  weight  should  be  given 
to  the  extreme  values  in  determining  the  coefficients  of 
the  best  linear  relationship  between  DE^  and  z^.  This 

could  be  achieved  by  considering  only  some  inner  set  of  DE^ 

values.  A further  consideration  is  that  the  scale  of  DE^ 

and  z^  is  non-linear,  actually  in  some  inverse  relationship 

to  the  height  of  the  probability  function  at  point  z^, 

given  that  equal  areas  given  approximately  by  ) 

should  be  delineated.  The  scale  determination  should 
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therefore  be  weighted  to  make  all  contributions  univariate. 
Exact  weights  would  be  l/o^  where  is  the  variance  of  z^. 

Tables  of  are  available,  but  we  have  approximated  these 

variances  in  practice  by  weighting  the  DE^  values  according 

to  the  associated  values  of  (eq.  2).  This  incorporates 

the  facts  that  the  scale  of  DE^  is  non-linear  and  values  of 

DE^  nearer  zero  are  expected  to  vary  over  a smaller  range 

than  values  lying  towards  the  extremes.  The  slope  of  the 
DE^  versus  z^  relationship  is  the  estimate  of  k,  the  scale 

of  required  to  fit  the  DE^^  values  to  a normal  distribu- 

tion. A plot  of  DE^  against  z^  is  produced  by  the  computer 

program  and  has  the  advantage  that  the  scaling  and  outlier 
rejection  procedures  are  shov;n  in  a visual  as  well  as  an 
analytical  fashion.  A break  in  the,  plot  is  typically  found 
between  two  different  populations  of  DE^  values,  although 

random  fluctuations  can  sometimes  produce  surprisingly 
non-linear  plots  (see  reference  [23]). 

The  least  probable  values  of  E^  are  necessarily  associ- 
ated with  the  extreme  values  of  DE^.  These  need  not  neces- 
sarily be  associated  with  the  largest  or  smallest  values  of 
E . , hov/ever,  because  the  size  of  a„ . has  also  been  incorpor- 

1 lliX 

ated  in  DE . . We  must  now  decide  whether  to  accept  or 
reject  the^extreme  values.  From  figure.  1,  we,  see  that,  on 
the  average,  the  extremum  DE^  should  bisect  the  area  to  the 
left  of  DE2 . If  we  set  the  cut  off  limit  for  DEj  such  that 
we  will  accept  a.  DEj  value  that  falls  within  the  90  percent 
of  the  area  closest  to  DE2 , we  will  on  average  reject  only 
10  percent  of  the  time  an  extremum  which  appears  to  be  an 
outlier  purely  because  of  random  fluctuations.  Note  this 
is  not  10  percent  of  the  data.  For  n values,  it  corresponds 
to  approximately  [l/(n+l)]/10  = 1 percent  at  each  extreme 
for  20  data  values;  this  constitutes  a two-tail  test  at  the 
2 percent  level.  We  expect  to  be  able  to  reject  most 
outliers  which  include  additional  non-random  bias  which 
makes  their  E^  values  quite  different  from  E^,  and  which, 

because  of  a small  value,  of  a„.,  would  otherwise  effect  E„ 

El  w 

significantly.  Because  the  areas  in  figure  1 depend  on  the 
sample  size,  the  cut  off  limit  also  depends  on  the  sample 
size  (cut  off  limits  are  applied  to  both  negative  and 
positive  DE  values).  Thus,  after  determining  the  approxi- 
mate scale,  k,  for  in  eq.  1 from  a least  squares  fit  of 

z^  to  DE^,  we  scale  DE^  to  z^  by  applying  the  scale  factor  k 
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to  a„ . . We  determine  the  cut  off  limit  for  the  DE . values 
El  1 

using  the  sample  size  and  a prechosen  chance  of  rejecting 

an  acceptable  extreme  point  along  with  atypical  points,  and 

we  reject  any  extreme  values  of  DE^  beyond  the  cut  off 

limit.  We  then  re-average  the  remaining  E^  values  to  give 

a new  value  for  E , recalculate  DE . and  rescale  the  remain- 

ing  d„.  values  by  refitting  DE.  to  z . . In  this  way  we  can 

til.  X X 

reiterate  the  procedure  (decreasing  the  cut  off  limit 
appropriately  for  each  iteration)  until,  no  further  outliers 
are  discarded. 

From  the  final  set  of  scaled  . values  we  can  calcu- 

Ei 

late  the  standard  deviation  of  the  weighted  average  activa- 
tion energy,  E^.  Here  we  re-emphasize  that  although  we  may 

have  estimated  the  error  in  the  rate  and  temperature  measure- 
ments individually,  (and  perhaps,  with  other  experimental 
setups,  crudely  from  chart  records,  experience,  or  in- 
tuition) when  we  use  the  above  procedure  to  estimate  the 
values  by  rescaling  we  in  fact  assume  only  the 

proportions  of  the  contributions  of  temperature  and  rate  to 
the  standard  deviations  of  the  individual  activation  energies 
E^.  Strictly  speaking,  we  have  also  assumed  that  all 

deviations  from  the  average  arise  from  random  error.  In 
some  cases,  we  have  found  a systematic  trend  of  E^^  with 

time  or  wide  scatter  among  the  E^  values.  To  the  extent 

that  these  are  assigned  as  random  error,  the  associated 

values  and  the  resulting  estimate  of  a=  are  proportionately 

ts 

increased.  This  essentially  states  the  extent  to  which  the 
average  value,  E^,  is  meaningful  when  a trend  or  wide 

scatter  is  evident.  Typically,  one  uses  preferably 

the  reduced  value,  = X^/(n  - v),  as  an  estimate  of  the 

goodness-of-fit  of  a function  (such  as  an  average)  to  data. 

In  the  definition  of  v quantities  are  determined  from  n 

data,  and  h - v is  the  number  of  degrees  of  freedom.  Here 
we  have  rescaled  the  denominator,  . = kl(a_.)^,  of  x^  so 

JbiX  hiX 

that  x^  should  be  approximately  unity.  When  x^  is  not  in 

the  range  0.90  to  1.10,  something  may  be  wrong  with  the 

data  set  or  the  selected  cut  off  limit.  For  example,  the 

unbiased  data  may  constitute  a minor  population  in  a very 

poor  data  set.  The  distribution  will  then  be  dominated  by 

"bad"  data.  Thus,  the  "good"  data  may  be  outliers,  partly 

because  of  their  smaller  a„ . values.  In  such  cases  the 

El 
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procedure  will  probably  give  poor  results,  but  this  should 
be  neither  surprising  nor  mitigating. 

Extension  of  the  Procedure 

We  have  described  how  the  DE^  population  can  be  checked 

for  atypical  values.  We  now  extend  this  concept  to  examining 
whether  the  values  themselves  constitute  a homogeneous 

sample.  This  is  especially  important  if  one  is  examining 
data  gathered  and  processed  entirely  by  machine  without 
operator  intervention  or  assessment. 

We  could  assume  that  the  . values  follov;  a distri- 

Ei 

bution  [24],  but  much  of  the  reasoning  (and  computer  program- 
ming) for  the  DE^  case  can  be  reused  if  instead  we  examine 

the  distribution  of  the  residual 


In  a 


DS.  = 


Ei 


- In  a 


Ei 


which  we  assume  to  be  approximately  normally  distributed  [25] . 
The  scale  factor,  k,  is  initially  set  equal  to  1.  This 
actually  assumes  that  the  values  of  In  are  randomly 

distributed,  which  is  usually  not  the  case.  Nevertheless, 
the  practice  is  defended  on  the  grounds  that  it  appears  to 
be  a satisfactory  test  for  sample  homogeneity.  Box’s 
test  [26]  gave  the  same  results  at  the  one  percent  level  as 
this  procedure. 


In  practice,  the  procedure  consists  of  first  checking 


the  In  a_ . distribution  (a„. 

El  El 


ka„ . ) for  outliers  without 
El ' 


reference  to  the  associated  values  of  E. 
points  which  have  anomalously  low  valuei 


This  finds 

of  In  d^.  (these 
El 


points  would  then  dominate  further  calculations)  and  weeds 
out  points  with  anomalously  high  values  of  In  which 

have  no  effect  on  the  final  result  yet  V7ould  nominally 
contribute  to  the  number  of  degrees  of  freedom.  Explanations 
should  be  sought  for  either  occurrence,  but  - discarding 
points  because  of  large  In  values  is  more  common. 

Rejections  tell  the  experimenter  either  that  the  change  in 
conditions  producing  the  data  point  was  not  large  enough  to 
be  well  known  (for  large  In  &gj^)  or  that  the  rest  of  the 

data  are  not  of  the  same  high  quality  as  the  one  with  the 
anomalously  low  value  of  In 
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Precautionary  Notes 

This  procedure  is  an  attempt  to  estimate  a reasonable 

value  for  the  weighted  average  of  the  activation  energy  and 

its  associated  standard  deviation  using  both  individual 

estimates  of  the  activation  energy  and  their  assigned 

standard  deviations.  It  assumes  that  E.  and  In  a„.  are 

1 El 

both  normally  distributed  and  that  a weighted  fit  between 
z.  and  DE . is  appropriate  in  scaling  a„ . values  to  obtain 

estimates  of  . Although  the  power  of  the  method  has 

not  been  tested  on  statistically  assembled  artificial  data 
sets,  the  procedure  appears  to  produce  reasonable  results 
when  operating  on  TG  data,  provided  that  the  "good"  data 
dominate  in  the  definition  of  the  distribution.  It  evalu- 
ates the  data  in  a way  complementary  to  that  of  the  trimmed 
mean  program,  which  examines  the  means  of  E^  values  without 

considering  the  associated  a_ . values.  Nevertheless, 

IjI 

neither  procedure  should  be  used  blindly. 

The  conditions  generating  data  rejected  as  outliers  should 
be  examined  for  significance  regarding  the  performance  of 
the  apparatus  or  changes  in  the  sample  behavior. 

Further,  it  should  be  realized  that  the  procedure  here  is 
to  some  extent  intuitive,  and  its  use  is  still  experimental. 

Because  the  process  rests  equally  on  the  individual 
activation  energies  and  their  assigned  standard  deviation, 
the  experiment  should  be  designed  to  produce  reasonable 
estimates  of  both  these  quantities  as  well  as  to  keep  the 
standard  deviations. small . 

Finally,  replication  is  advisable  to  allow  use  of 
analysis  of  variance  to  check  that  the  measure  of  error 
between  samples  of  the  same  material  is  consistent  with  the 
measure  of  error  within  the  samples.  If  the  error  between 
samples  is  the  larger,  thermal  history  is  probably  playing 
an  important  role. 

VI.  Generalized  Polynomial  Fitting:  POLGEP 

POLGEP  is  a FORTRAN  program  which  allows  the  user  to 
read  data  in  almost  any  format,  to  pick  out  from  the  "repeat 
unit"  of  data  those  items  to  which  the  polynomial  will  be 
fitted,  to  specify  the  degree  and  coefficients  of  the 
polynomial,  and  to  choose  whether  the  fit  is  to  be  weighted 
by  l/a|(y)  or  not.  The  general  scheme  of  data  input  is 

essentially  that  of  PABS  (Section  IX).  The  user  can  evalu- 
ate the  fitted  polynomial  and  its  first  derivative  at  any 
point.  Estimates  of  the  error  are  provided.  The  program 
is  intended  for  such  uses  as  extrapolating  activation 
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energies  to  zero  seunple  weight  in  those  cases  where  there 
is  a trend  with  sample  weight.  A listing  of  the  program 
and  an  example  of  its  use  are  given  in  Appendix  E. 

VII.  Publication  Tables:  TABLEP 

The  FORTRAN  program  TABLEP  is  provided  to  make  tables 
of  activation  energies  and  associated  data  automatically. 

This  saves  time  and  avoids  transcription  errors.  The 
listing  and  an  example  of  its  use  are  given  in  Appendix  F. 

VIII.  General  Program  to  Operate  the 
MIDAS  Interface:  BMDP 

• BMDP  is  a BASIC  program  which  allows  the  use  of  the 
MIDAS  interface  for  quick  checks 'of  the  apparatus,  non- 
routine applications  and  so  on.  The  results  are  written  on 
file  7 in  such  a way  that  other  BASIC  programs  will  be  able 
to  read  them.  The  program  reads  voltages  on  specified 
inputs  on  the  analog  scanner  for  a user-provided  number  of 
times,  with  a user-specified  wait  between  each  set  of 
readings.  The  program  is  quite  simple  and  is  easily  altered. 
The  listing  of  the  program  and  an  exeimple  of  its  use  are 
given  in  Appendix  G. 

IX.  Generalized  Plotting  Program  for  Versatec 
Printer-Plotter:  PABS 

During  the  check-out  of  the  apparatus  and  examination 
of  data  and  of  derived  results,  it  became  imperative  to 
write  a plotting  program  (incorporating  software  available 
for  the  VERSATEC  printer-plotter).  Because  of  the  widely 
differing  formats  of  numerical  quantities  to  be  plotted,  we 
decided  to  make  the  program  fairly  general . The  program 
PABS  is  the  result.  The  listings  are  given  in  Appendix  H. 

PABS  will  read  files  in  most  formats.  The  user  inputs 
the  details  in  response  to  prompting  questions.  The  first 
line  is  assumed  to  be  a title.  Any  numbers  of  subsequent 
lines  may  be  ignored.  PABS  reads  in  a repeating  unit  of  up 
to  100  numbers,  selects  one  of  them  to  be  x and  selects  up 
to  5 others  to  be  y values  at  that  value  of  x.  This  process 
is  repeated  until  the  end  of  the  input  file 'is  reached  or 
until  a user-chosen  number  of  points  has  been  read  in. 

Thus  up  to  5 curves  are  built  up  and  plotted.  Input  is  in 
free  format,  regardless  of  the  number  of  lines  required  to 
contain  the  repeating  unit.  The  user  then  specifies  whether 
symbols  should  be  plotted  at  the  data  points  or  not  at  all 
and  whether  blanks,  a straight  line  or  line  interpolated 
using  a user-chosen  nun±>er  of  points  is  to  be  used  to  join 
adjacent  points.  The  size  of  the  plot  is  chosen,  user- 
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supplied  scaling  factors  are  applied  to  be  the  input  data, 
and  the  plots  are  scaled  automatically  or  by  a user-provided 
scale  factor. 

The  output  of  PABS  must  be  processed  by  the  program 
VCPY  to  produce  a plot.  An  example  of  the  procedure  "auto- 
mated" to  plot  several  files  is  given  in  Appendix  H. 
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Notes  on  the  Program  Appendices 

. Much  use  is  made  of  'transfer'  files  (see  the  FLOXOS 
manual).  This  is  a convenient  way  of  instituting  automatic 
operation,  both  in  assembling  the  programs  from  their 
component  parts  and  in  running  the  programs  in  production 
use.  The  files  that  a given  program  needs  are  evident  from 
the  SETXX  files,  which  make  routine  file  assignments,  and 
from  the  examples  of  input,  which  show  the  assignment  of 
particular  input  files.  To  run  a program,  use  DO  SETXX  for 
that  program,  assign  any  needed  input  and  output  files  and 
then  type  RUN  YYY,DZ  where  YYY  is  the  program  name  and  the 
program  is  on  disc  DZ. 

To  change  a program,  edit  the  source,  file  with  the 
EDIT  system  program,  and  then  form  a binary  file,  usually 
with  almost  the  same  name  as  the  source  file  but  with  a 
final  B (for  binary)  in  the  name.  Use  the  sequence 

*AC  SOURCE , IDO 

*AC  CAL0UT,2D1  (this  is  a general  scratch  file) 
*AS  300  (generally  no  output  needed) 

*RUN  FORTY, DO 

and  then,  after  compilation  (translation  from  FORTRAN  into 
the  CAL  language) 

*AC  CAL0UT,1D1 
*AC  BINARY, 2D0 
*RUN  CAL 

and  finally,  after  translation  from  CAL  into  binary, 

*WF  2 
*CL 

Errors  in  the  compilation  show  up  on  unit  7,  which  is 
usually  the  terminal.  The  line  numbers  mentioned  are  those 
found  in  the  EDIT  program.  Use  of 

*AS  362 
*AS  762 

for  the  compilation  will  print  a listing  with  interspersed 
error  messages.  Always  use 

*AS  300 
*AS  720 

when  about  to  run  CAL.  The  listing  is  of  no  interest  if 
you  have  started  from  FORTRAN. 
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The  general  order  in  the  program  Appendices  is 
SETXX 

Example  of  input 

Example  of  output 

Listing  of  routines  in  program 

Program  remaking  routine  LOXXXX 

File  XXXXL5,  associated  with  LOXXXX 

Memory  map  of  the  program 
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Appendix  A.  TGRUNF,  a FORTRAN  to  perform 
’■  factor-jump  thermogravimetry. 
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File  SETTG,  used  as  DO  SETTG,D1  to  make  file  assignments  needed 
in  a run  of  TGRIMF. 


fiCNFILEB.lDl 
AS  262 
AC  FRINT,3D1 
AS  420 
AS  520 
AS  600 

AS  700  ’ ■ ■ 

AS  820 

AC  NFILEC,9D1 
oc;  opfi 

AC  TGSETU,BD0 
AC  TGFACT,CC0 
AC  TGPLAT,DD0 
AC  TGPREC,£D0 
AC  TGSTAT.FD0 
LU 

ASSIGN  SAVE  FILE  FOR  E'S  (6)  AMD  PARAMETERS- (9)  THEM  TYPE  'RUN  TGMAIN,Dr 
TR 


User  then  types: 

*AL  PMMA01,6D1,1,80 
*AC  PMSAVE,9D1 
*RUN  TGMAIN,D1 
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Example  of  the  ’save'  file  written  on  unit  6 by  TGRUNE.  The 
file  contains  a two  line  title  and  then,  for  each  activation  energy, 
ordinal  number,  E,  g(E) , time  of  determination,  sample  weight, 
percentage  of  reaction,  temperature  T for  plateau  1,  a(T^),  rate  1, 

a(r^),  extrapolated  sample  weight  from  plateau  1,  a(w^),  and  number 

of  data  points  taken  during  this  plateau.  The  corresponding  quantities 
are  then  given  for  plateau  2. 


ms  706  IN  40%  02  P=800  MM  HG  3/20/78 


1 

22.422 

0. 177 

933. 

0.573756E+06  5.82 

292.89 

0.03 

-0.331 lE+02 

0.4547E-01 

0.573473E+06 

0.  101013E4B2 

30 

284.09 

0.03 

-O.2417E+02 

0.3533E-01 

0.574O39E+05 

0.7659S5E401 

39 

2 

23.191 

0.139 

1765. 

0.554887E+06  8.19 

284.14 

0.03 

-0.2122E+O2 

0.353SE-01 

0.5552G9E+G6 

0.7859S5E401 

30 

295.03 

0.03 

-0.3171E+02 

0.3244E-01 

0.554506E+06 

0.720734E401 

30 

3 

23.392 

0. 191 

2591. 

0.529632E406  11.37 

294.96 

0.03 

-0.2912E432 

0.3244E-01 

0.529354E4Gb 

0.72B734E431 

30 

286.09 

0.02 

-0.209SE+02 

0.4273E-01 

0.523912E+05 

0.950372E-i'01 

30 

4 

23.157 

0. 175 

3419. 

0.512748E+05  13.43 

286.19 

0.02 

-0. 197GE+02 

O.4278E-01 

0.513065E+06 

8.S50372E401 

30 

297.06 

0.03 

-0.2944E+02 

e.4581E-01 

0.512431E+06 

0.  1O1767E402 

30 

5 

22.867 

0.228 . 

4246. 

0.43893SE+0S  16.43 

296.97 

0.03 

-0.27S2E+02 

3.4536E-01 

0. 48874 lE+06 

0. 1019878-^02 

33 

288.03 

0.03 

“0.2020E+02 

0.4374E-O1 

0. 48923 lE+06 

0.97259 1E401 

30 

6 

22.935 

0.167 

5074. 

0.472496E+06  13.55 

288.18 

0.03 

-0. 1946E+02 

0.4374E-01 

0.4728133406 

0.97269 IE401 

30 

299.13 

0.02 

-0.2S33E402 

0 . 3539E-0  1 

0.47217SE406 

8.787663E401 

39 

? 

23.031 

0.198 

5901. 

0.44BS67E+06  21.53 

299.02 

0.02 

-0.2315E432 

0.3535E-01 

0.44S6O2E43S 

0. 735352840 1 

30 

290.12 

0.03 

-0.2045E432 

0.410SE-O1 

0.449133E40S 

0.S12550E401 

30 

8 

23.086 

0.172 

6729. 

0.432094E+06  23.64 

290.15 

0.03 

-0.20O1E402 

0.4198E-O1 

0.432404E406 

0.91255OE401 

30 

301.13 

0.03 

-0.2969E402 

0.3SS5E-01 

0.431784E406 

0.8630498401 

30 

f 
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9 

23.764 

0.231 

7555. 

0.4076 

;59E+86  26.71 

303.99 

0..  03 

-0.2931E+G2 

8.3SS5E-01 

0.40759GE-4-06 

0.S53049E+O1 

30 

291.91 

8.03 

-0.2097E+02 

0.5O51E-91 

0.407948E-)-Ob 

0. 112212E+92 

33 

10 

23.552 

0.230 

8382. 

0.390441E-i-06  23.88 

292.08 

0 . 03 

-0.2052E+02 

0.5051E-01 

0.333790E+06 

0. 1 12212E+02 

30 

303.14 

0.04 

-0.3070E+02 

9.4333E-01 

0. 39003 lE+Ob 

0. 1Cd635E+32 

30 

10 

23.507 

0.224 

9210. 

0.365137E+86  32.86 

303.01 

0.04 

-0.3O33E+O2 

0.4308E-01 

0.364343E-f-Ob 

0. 1069262+0? 

30 

293.90 

0.04 

-0.2131E+O2 

O.4135E-01 

0. 36543 1E+0S 

0. 93067 lE+01 

30 

10 

23.831 

0. 191 

10037. 

0.347203E+0S  34.31 

294.05 

0.94 

-0.2140E+02 

0.41S0E-01 

0.347554E+06 

0.923650E+01 

30 

305. 12 

0.03 

-0.3203E-f52 

0.6393E-01 

0.346852E+06 

0. 142037E+02 

30 

10 

24.055 

0.246 

10354. 

0.3203S6E+3S  ^7.63 

305.03 

0.03 

-0 . 3 15 lE+02 

0.6333E-01 

0.32B559E+0S 

0. 142037E+92 

o8 

295.95 

0.03 

-0.2256E+02 

8.5145E-01 

. 

0.321 172E+66 

0. 114309E+02 

33 

10 

22.93? 

0.203 

11691. 

0.30230OE+26  39.95 

296.04 

0.03 

-0.2221E+32 

O.5145E-01 

0. 302666E+0b 

8. 114385E+02 

30 

307.13 

0.03 

-0.3276E+02 

3.6552E-01 

0.301940E+0b 

0. 147778E+02 

30 

10 

24.370 

0.217 

12519. 

0.275378E+86  43.35 

306.98 

0.83 

-a.3232E+82 

• 0.6652E-O1 

0.275030E+3S 

0. 147778E+02 

30 

297.92 

0.03 

-9.2312E+02 

e,3731E-01 

G.275726E+0b 

0. 82379 lE+01 

39 

10 

24. 122 

0. 143 

13346. 

0 . 256475E+8S  45 . 73 

298.07 

0.03 

-O.2253E-02 

0.3731E-01 

0.25d353E+06 

0. 82875 lE+01 

30 

309.12 

0.02 

-0.3371E-T02 

8.3979E-01 

0.256097E+8C 

0 . S33363E+8 1 

38 

10 

23.990 

0. 166 

14173. 

0.229012E+36  43.18 

309.02 

0.02 

“0 . 3257E+02 

0.3579E-01 

0 . 223687E+Gb 

0 . 86oo63E+0 1 

30 

300.00 

0.03 

-0.2330E+02 

C.3254E-01 

0.22S337E+0S 

8.722S18E+01 

30 

10 

24.200 

0. 140 

14999. 

0.289822E+0S  51.53 

300.04 

0.03 

-0.2279E-^02 

0.3254E-01 

0.210195E+0S 

0.722918E+01 

30 

311.11 

0.03 

-0.348SE+02 

8.4399E-01 

0.28944SE-f05 

0.310525E+01 

30 

10 

23.929 

0.  177 

15826. 

8.182190E+86  55.07 

310.97 

0.03 

-a.3260E-iG2 

0.4099E-01 

0. 1S1877E+0S 

0.910525E+G1 

30 

301.99 

0.03 

-0.2363E-r02 

0.3449E-01 

0.ie2503E+06 

0.766166E+01 

30 
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How  to  prepare  a new  flexible  disc  to  be  a TGS  save  file  disc. 


Put  an  old  disc  in  drive  FO 
Put  a new  disc  in  drive  FI 
*ZU 

*AC  NFILEC , IFO 
*AL  NFILEC, 2F1, 1,80 
-CP  1,2, 80, A 

(You  will  get  an  end  of  medium  message--90F0--ignore  it.) 
*AL  NFILED,2F1,3,80 
-ZU 

The. new  disc  is  now  ready. 
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Beginning  of  a typical  output  of  the  TGRUNF  program.  Examples  of 
the  user-input  are  given  in  Tables  3 to  16  of  the  main  text.  Users  of 
the  TGRUllF  program  will  find  much  useful  information  in  references  2, 
3,  and  5. 


NBS  1475  PE  IN  VftC  4/4/78  3PM 


TYPE  E THERMOCOUPLE=NI-CR/CU-N I, EXPRESS  IONS  GOOD 
FROM  -0.05  TO  +0.04,  0 TO  430  DEGREES  C. (TABLE  A3. 2. 3, P.307 
NBS  MONOGRAPH  125,1974) 

PARAMETERS  INITIALISED  AS  FOLLOWS: 


NTHCP  = 

E TSCALE  = 243.73 

SKIP=  0. 

FACTORS  = 

1 

2 

0 0 

0 0 

0 

0 

FACFUN  = 

0 

0 

0 0 

0 0 

0 

0 

DERI VS  = 

1 

0 

e 0 

0 0 

0 

0 

INPUTS  = 

0 

1 

2 3 

4 5 

6 

7 

SCALES  = 

1.000 

1.000 

0.010  1.000 

1.000  1.000 

1.090 

1.000 

NRANGE  = 

3 

3 

5 5 

5 5 

5 

5 

NREADS  = 

3 

3 

3 3 

3 3 

3 

3 

NTERMS  = 

2 

1 

0 0 

0 0 

0 

0 

CHI  TEST= 

4000. 

1500. 

1000.  1009. 

1030.  1030. 

1033. 

1003. 

PTIMES  = 

300.0 

300.0 

300.0  390.0 

300.0  300.0 

330.8 

300.0 

PRECF  = 

100.03 

100.00 

109.00  100.09 

103.00  100.00 

190 . 99 

100.00 

PRECR  = 

30.00 

30.00 

30.00  30.00 

30.00  30.00 

33.00 

30.00 

NFACTS  = 

2 NRATES  = 

1 TIMLIM  = 600.  BAD  PTS  = 

15  EGUIL 

= 200 

CHECKS  = 

75  END 

SIG  = 

0.0  RATMIN  = 

15.9  RATMAX 

= 45.0 

TJUM? 

TC  TO  D = 

0. 17023E-01 

-0.22097E-0S 

0.54309E-11 

-0.5767OE-16 

10  UN1TS= 

5 

5 

3 7 

8 1 

6 

POLNOM  EXP=  1 

2 

3 4 

5 

PRECISION 

IN  E ACT  = 25 

.00 

FACTOR  LEVELS  AND 

CHANGES  FOLLOW: 

1 425 

. 000 

1.000 

2 0 

.000 

0.000 

3 0 

.000 

0.000 

4 0 

.000 

0.009 

DESIGN  MATRIX  FOLLOWS 

1 .8. 

030 

0.000 

0.000  0 

.003 

2 -6. 

000 

0.000 

0.000  0 

.000 

STEADINESS  CHECK  = 0 WHERE  0=NO,1=YES 
INPUT  FILTER  TO  DVM  = 1 WHERE  0=NO.1=YES 
READ  OTHER  EXPTS  = 0 WHERE  0=N0,1=YES 

BIAS  VOLTAGES  AND  SIGMAS  FOR  FACTOR  INPUTS 
FACTOR  VOLTAGE  SIGMA 

1 0,B0eO030E+0O  0.9S99999E-99 

2 0.0OO0Q03E+00  0.9S99999E-O9 

INITIAL  AND  FINAL  WEIGHTS  ARE:  187200.  -175000. 

BAKE  TIME  IN  SECONDS  IS  1200. 

BAKE  TEMPERATURE  IN  DEGREES  CELCIUS  IS  420. 

BAKE  PRESSURE  IN  MM  HG  IS  0. 

FLOW  OF  N2  IN  SCC/MIN  IS  0. 

FLOW  OF  02  IN  SCC/MIN  IS  0. 

FACSET 

420.0  1 


A6 


14  7445; 

FftCSET 

0.0  2 

14  0000; 

FftCSET 

0.0  3 

14  *G  0000: 
FftCSET 

0.0  4 

14  *G  0000; 
FftCSET 

433.0  1 

14  #D  7698; 
FftCSET 

0.0  2 

14  0000: 

FftCSET 

0.0  3 

14  =R=G  0000: 
FftCSET 

0.0  4 

14  4i=G  0000; 


FftCTOR  LEVELS  SET  TO  433.000  0.000  0.000  0.000 


MEftSUREMENT  FOR  PLftTEftU  NUMBER  1 :<oio{=}oio}c 


NO. 

F 

I 

READING 

SIGMfl 

RD 

TIME 

BftD 

RCHI 

TESTCH 

1 

1 

0 

0.1498407E+OS 

0.2973396E+02 

3 

204. 

0 

0.0 

4809.0 

1 

2 

1 

0 . 3 13 liS7E+0o 

O.SS19175E-1-00 

3 

204. 

e 

0.0 

1560 . 0 

2 

1 

0 

0. 1494G93E+0S 

0.283Q589E+82 

3 

211. 

0 

0.0 

4G00.0 

2 

2 

1 

0.3131G30E+05 

0.57735SSE+G3 

3 

■ 211. 

• 0 

0.0 

15G0.0 

3 

1 

0 

0.  14937b0E-f0S 

0.31 4635 1E+G2 

3 

219. 

0 

0.0 

4000.0 

S 

2 

1 

0.3131933E+G5 

0 . 3333346E+03 

3 

219. 

0 

0.0 

1569.0 

4 

1 

0 

0. 14So640E+0S 

0. 39022 17E-:-32 

3 

227. 

0 

0.0 

4000 . 0 

4 

2 

1 

0.3132133E+05 

0 . b33334SE"r90 

3 

227. 

8 

0.0 

1500. G 

5 

1 

0 

0. 14S2503E+0b 

0.3117SS3E+G2 

3 

234. 

0 

0.0 

4880 . 0 

5 

2 

1 

0.31317G0E+05 

O.5773533E+03 

3 

234. 

0 

0.0 

1500. G 

6 

1 

0 

0. 147S403E+GS 

0.31170S3E+02 

3 

242. 

0 

0.0 

4800. G 

6 

2 

1 

0.3131233E+85 

3.3333346E-I-S0 

3 

242. 

0 

0.0 

1500.0 

7 

1 

0 

0. 1474127E+0S 

0.30S0132E-:-92 

3 

250. 

0 

0.0 

4088.0 

7 

2 

1 

0.31312GGE-f35 

0 . G0OG000E"1'03 

3 

250. 

0 

0.0 

1500.0 

8 

1 

0 

0. 14?'G20CE+Go 

O.2S36743E+02 

3 

257. 

0 

0.0 

4600 . 0 

8 

2 

1 

0.313130GE+G5 

0.00000002+00 

3 

257. 

0 

0.0 

1500.0 

9 

1 

0 

0.  14G6473E-;-0S 

0.282323SE+02 

3 

265. 

0 

0.0 

4000.0 

9 

2 

1 

0.3131 133E+05 

Q , 3333345E+0O 

3 

265. 

0 

0.0 

15C0.Q 

10 

1 

0 

0. 14S2573E-i-QS 

0.285792SE+Q2 

3 

272. 

0 

0.0 

4009.0 

10 

2 

1 

0.313G9S7E-!-05 

0 . 333334SE^■00 

3 

272. 

0 

0.0 

1560.0 

11 

1 

0 

0. 1458S43E+0S 

0.2944S70E+02 

3 

2S0. 

0 

0.0 

4080 . 0 

11 

2 

1 

0.3133333E-r05 

0 . 3333346E+O0 

3 

280. 

0 

0.0 

1590.0 

12 

1 

0 

3.  1454b47EH-0c 

0 . 2944S70E'5'Q2 

3 

288. 

0 

0.0 

4000.0 

12 

2 

1 

0.3131 lGCE+05 

0 . GO00000E+0O 

3 

288. 

0 

0.0 

1590.0 

h ‘l  ‘i  ^ 

I 1 n -pQ'iQonocj.no  -2  vc/i  a a 


73 

1 

0 

0. 12112S3E+0S 

0.2S2920SE+02 

3 

754. 

0 

0.0 

40G9.0 

73 

2 

1 

0.31 27S3oE+G5 

0.S313175E+00 

3 

754. 

0 

0.0 

1500.0 

74 

1 

0 

0. 1297420E+06 

0.291b343E+G2 

3 

762. 

0 

0.0 

4000 . 0 

74 

2 

1 

0.31276GGE+G5 

0 . 3000300ti+00 

3 

762. 

0 

0.0 

1580.0 

75 

1 

0 

0.  1203593E+O5 

0.2915SS2E-!-G2 

3 

769. 

0 

0.0 

4009.0 

75 

2 

1 

0.3128300E+05 

0.57735OSE+09 

3 

769. 

0 

0.0 

1500.0 

* 
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CHECKS  OF  PRECISION  FOR  PLftTEfiU  1 

XoMcK^f<>K>K>l«K><olc>)5(;M"I.'::;>l;>|:>l»lt>l:>tc4:>!o}c>|oln|:>};5l»!:>l<>!otc>lcIo|c>W=tofoto)o|o(ototoJoK 


UEIGHT  LOSS  FOR  THIS  FLflTEOU  = 0.2S5E+O5  MICROVOLTS 
UITH  AVERAGE  RATE  OF  0.522£-i-O2  MICROVOLTS  PER  SECOND 


TIME 

-282.5 

-275.5 

-267.5 

-259.5 

-252.5 

-244.5 

-236.5 

-229.5 

-221.5 

-214.5 

-206.5 

-198.5 

-191.5 

-183.5 


229.5 

236.5 

244.5 

252.5 

259.5 

267.5 

275.5 

282.5 


P 

0. 143341E+0S 
0. 1434S9E+OS 
0. 14S076E+3S 
0. 143S64E+06 
0. 14S250E-;-0S 
0. 147340E+06 
0.  1474l3E-:-0b 
0. 14702OE+OO 
0. 14Sb4?E+0S 
0. 14S257E+0b 
0. 145Sb4E+3S 
0. 1454S5E+0S 
0. 1450d6E+05 
0. 144b62E+0b 


YFIT  SIGMA  P 
0.149S61E+06  0.297E+32-0 
0. 1494^3E-^06  0.2S3E-i-32-9 
0. 14937 lE-:-05  0.315E+32  0 
0.143S5QE+06  0.333E+02  0 
0.  143231E-^96  0.312E+02-0 
O.1478S0E+06  3.312E-i-32-a 
0.147439E+36  O.3O.3E+82-0 
0.  147O71E-;-05  0.299E^-02-0 
3.14SS50E+06  O.233E+02-0 
0.  14o282E-f06  O.23SE+02-0 
9.145851E+06  3.234E-r32  9 
0.1 4544 lE+05  0.234E+02  9 
O.145073E+OS  0.336E-fO2-0 
0.144b53E+O5  0.294E+O2  0 


P-VFIT  (P-YFIT)/SIGP  DEL  P 
235E+02-O.634E-^-S3  O.090E-=€9 
23SE+92-0 . 8413-^-09-0 . 372E-23 
475E-f01  0.  151E-:-03-a.393E--O3 
142E-f02  0.4S6E-^33-O.412E-r03 
3 13E-r02-a . ieeE-i-2 1-0 . 41^E-^23 
222E-^02-3 . 647E-;-09-0 . 4 1 EE-f03 
SboE-l-OE— 0 . 87 4b.-'.-00— 0 . 42£:i-’-C3 
5!  lE-rOE— Q.  1 77E-i'0 1 — 0 . 33cE*!-03 
33EEH-0 1-0  . lCSE-i  OO-0 . 373E-:-33 
243E-:-32-0 . S78E-:-8O-0 . 2S0E-f33 
231E-1-01  O.355E-0 1-3. 3333^33 
23£E-f02  0 . S33E--:c30-0 . 433E-?-03 
6S3E-f0 1-0 . 2 1 CE4G0-O  . 39SE-^83 
S75E-;-01  0.331E409-0.4O4EH-05 


0. 123C53E40b 
0 . 122b73E-iSb 
0. 12223SE405 
0. 121314E406 
0. 12151OE40S 
0. 12112GE40b 
0. 12O742E406 
0. 12935SE406 


0 . 1 23353E405  0 . 283E-1-32-0 . 1 33E432-0 . 47 1 E400-0 . 395E403 
0.  122bS3E405  O.277E432-0.2olE-^02-O.940E4C0-0.377E-:-33 
0.1222S3E4OS  O.274E402  0.123E-:-32  0.4592400-0. Z77E-i-93 
0.1213S7E405  0.333E4B2  0.453E402  0 . 153E49 1-0 . 3S2E403 
0.  121594E-!-85  0.23SE-HD2  0.613E431  0.214E403-0.484E-V03 
0.1213SSE4C5  0.233E432  0. 4032402  0 . 142E40 1-0 . 3S 1E403 
0.12OS72E405  0.2S2E492  0.69SE432  0 . 233E40 1-0 . 3£bE4G3 
0. 1203e3E-i-05  0.292E402  O.594E402  0 . 173E4G1-0 .3S3t:^4G3 


POLYNOMIAL  COEFFICIENTS  FOR  FACTOR  1 
COEFF  SIGMA 

8.135932192405  0. 493277 17E40 1 
-0.52335359E4O2  0. 19S59339E-01 
e.66241332E-03  0. 13429741E-03 


REDUCED'  CHI  SOUARE=  810.19 
FTEST  = 0.16E407 

RMLIL  = 0.10E401 


R(l)  = -0.10E401 


R(2)  = 0. 

15E-02 

TIME 

P 

YFIT 

-282.5 

0.313137E405 

0.3131 15E405 

-275.5 

0.3131 0SE405 

0.3131 133405 

-267.5 

0.313 1933405 

0.31311 IE405 

-259.5 

0.313213E-1-05 

0.313109E405 

-252.5 

0.31317GE405 

0.313137E405 

-244.5 

0.313123E-t-05 

0.313135E4O5 

259.5 

7 

0.312950b.-!-0o 

7 

0.3129d3£4G5 

267.5 

0.312733E405 

0 . 3 129boz.405 

275.5 

9.3127SGE405 

0.312954E4G5 

282.5 

0.3 12S3QE435 

0.312SS2E+03 

SIGMA  P P-YFIT  <P-YFIT)/SIGP  DEL  P 
0.S32E489  0.215E401  0.244E431  0.O02E42O 
0 . 577E4  J0-0 . 132E40 1-0 . 229E-J-9 1 -G . 3S7E48 1 
3.333E4O0  0.322E401  O.247E402  O.933E401 
0.333E4aa  0.104E402  8.313E402  0.2983401 
0.577E433  3.630S491  0 . 109E492-0 . 433E40 1 
0 . 333E400  0 . 1 S5E43 1 0 . 554E40 1 -9 . 467E40 1 

‘l  ^ 

0. 1 15E431-0. 132E401-0. 157E401-B. 1 133492 
0.S32E433-9. 133E-r02-3 .207b.4e2-0 . 157E402 
0 . Q93E400-0 . 2O4E4O2-0 . 204E4 1 7-0 . 2b3E43 1 
0 . 577E40O-0 . 1 32E-i-a2-a . 22SE402  0 . 700E40 1 


A8 


POLYNOMIAL  COEFFICIENTS  FOR  FACTOR  2 
COEFF  SIGMA 

0.31303S52EH-Q5  0.9335S'033E+O0 
“0.271 17463E-01  0 . 5641 1624E-02 

REDUCED  CHI  SQUARE=  65.37 

FTEST  = 0.23E+02 

RMUL  = 0.49E+00 

R(l)  = -0.4SE+O0 


EXTRAPOLATION  TIMES  ABOUT  MID  POINT  OF  PLATEAU  FOR  POLYNOMIALS 
FIRST  PLATEAU  = -2Q0.  200. 

SECOND  PLATEAU  = -4S2.  432. 

REAL  TIMES  ARE  200.  SECONDS  ON  EITHER  SIDE  OF 

e.  0.  FOR  FIRST  PLATEAU,  AND  204.  769.  FOR  SECOND 


EXTRAPOLATED  VALUES  AND  SIGMAS  BACK  AND  FORIJARD  IN  TIME 
THEN  PRECISIONS,  = BACK,  FORWARD  AND  REQUESTED 


R1 

“0.529E-K02 

0. 131E+00 

-0.5I7E^O2 

0, 131E+30 

404. 

394. 

30 

FI 

0. 160E+OS 

O.331E+02 

0.1 10E-:-G6 

0.331E+02 

435 1 . 

3325. 

100 

F2 

0.313E+O5 

0.2S3E-:-31 

0.3133+05 

0.283E+01 

103B3. 

10874. 

100 

FACSET 

425.0  1 

14  #D-7542; 

FACSET 

0.0  2 

14  =&D  0003; 

FACSET 

0.0  3 

14  *G  0000: 
FACSET 

0.0  4 

14  *G  0000; 


FACTOR 

LEVELS  SET  TO 

425.000 

0.000 

0.000 

0.800 

MolctoloioK 

MEASUREMENT  FOR 

PLATEAU 

NUMBER  2 

NO.  F 

I READING 

SIGMA  RD 

TIME 

BAD  RCHI  TESTCH 

1 

1 

0 

0.1051397E+O5 

0.15O25S3E+02 

3 

1133. 

0 

0.0 

4000.0 

1 

2 

1 

0 . 3O66SO0E+9r! 

0. 1154780E+01 

3 

1133. 

0 

0.0 

1503.0 

2 

1 

0 

0. 104932ZE-:-3S 

a.. 153730  lE+02 

3 

1140. 

0 

0.0 

4300 . 0 

2 

2 

1 

0.33S7S33S+G5 

0.83191753+30 

3 

1140. 

0 

0.0 

1500.0 

3 

1 

0 

8. 104b3S3E+0S 

0. 1760995E+32 

3 

1148. 

0 

0.0 

4003.0 

3 

2 

1 

0 . 3063 1 67E+0b 

0 . 3333345E+09 

3 

1148 . 

0 

0.0 

1560.0 

4 

1 

0 

0. 1044S7OE+0S 

0. 161S5S3E+82 

3 

1155. 

0 

0.0 

4080.0 

4 

2 

1 

0.3Gb76b7E+35 

0.333334SE+03 

3 

1156. 

0 

0.0 

150.0.0 

73 

1 

0 

0.S972SOOE+O5 

0. 1553345E+92 

3 

1680. 

0 

0.0 

4033.0 

73 

2 

1 

0 . 33SS2G  < E'i  Od 

0.333334SE+00 

3 

1633. 

0 

0.0 

1500 . 0 

74 

1 

0 

0.8951 33 lE+05 

0.  153700 lE+02 

5 

1683. 

0 

0.0 

4000 . 8 

74 

2 

1 

Q.30b63G3E+05 

0.COOCG8GE+O9 

3 

1683. 

0 

0.0 

1560.0 

75 

1 

0 

0.8931bb9E+O5 

0. 15O1432E+02 

3 

1695. 

0 

0.0 

4900.0 

A9 


75  2 1 0.3O66633E+35  O.333334SE+00  3 


1695 


0 


0.0 


1503.0 


CHECKS  OF  PRECISION  FOR  FLftTEFlU  2 


UEIGHT  LOSS  FOR  THIS  PLHTEPU  = 0.15SE+05  MICROVOLTS 
UITH  AVERAGE  RATE  OF  0.232E+02  MICROVOLTS  PER  SECOND 


TIME 

P 

YFIT 

-281. 

0 

0. 

105143E40S 

0. 

10514SE40S 

-274, 

0 

0. 

104332E4Ob 

0. 

1 04941 E403 

-266. 

0 

0. 

10459934.35 

0. 

1047eSE40S 

-253. 

0 

0. 

404467E495 

0. 

1G4472E43S 

-251. 

,0 

0. 

104252E4C:5 

0. 

1042S7E-'r0S 

-243. 

0 

0. 

1 G4024li40S 

0. 

1O4033E43S 

-235. 

0 

0. 

103S82E405 

0. 

1037933495 

-228. 

,0 

0. 

1O3574E40S 

0. 

1 03595E425 

-220. 

,0 

0. 

103343E4G5 

0. 

1 03332E40S 

-212. 

,0 

0. 

103122E405 

0. 

1031303405 

-205. 

,0 

0. 

102914E406 

9. 

1G232SE48S 

-197. 

,0 

0. 

1O2714E406 

0. 

1025943495 

-190. 

,0 

0. 

1O2497E40S 

0. 

10249IE40S 

-182. 

,0 

0. 

10227CE4GS 

0. 

1G2259E435 

-175. 

,0 

0. 

102071E40S 

9. 

102057E4GS 

-167. 

,0 

0. 

101S41E40S 

0. 

101326E40S 

-159. 

,0 

0. 

101b 17E405 

0. 

101 395E40S 

-152. 

,0 

0. 

10139 1E405 

0. 

131393E405 

-144. 

,0 

0. 

, 101 153E43b 

0. 

101 163E405 

-136. 

,0 

0. 

, lGO95f'b40S 

0. 

1O3933E403 

-129. 

,0 

0. 

, lQ9734E43b 

0. 

, 1037323495 

-121. 

,0 

0. 

, 109527E4GS 

0. 

, 1 03^923405 

-114, 

,0 

0. 

, 10O3O9E405 

0. 

, 109392E4SS 

-106, 

,0 

0. 

, 1QGO33E406 

0. 

, 1G9073E405 

-98, 

.0 

0. 

.99S5S0E435 

G. 

,9934443495 

-91, 

.0 

0. 

,995333S405 

0. 

,9954453405 

-83, 

.0 

0. 

,99419SE405 

0, 

,9941553485 

-75, 

.0 

0. 

,9921309405 

0. 

,9913373495 

-68, 

.0 

0, 

,9909779405 

0. 

,9395373-1-35 

-60, 

.0 

0, 

.9S7993E-r05 

0. 

, 937G24E405 

-53, 

.0 

0. 

.985347E435 

0. 

, 9355333403 

-45, 

.0 

0, 

,9335707-^05 

0. 

,9333713405 

-38, 

.0 

0, 

.931399E435 

0. 

,9313913405 

-30, 

.0 

0, 

.97S939E405 

0. 

,3791293405 

-22, 

.0 

0, 

.9757803405 

0. 

, 9763793405 

-15, 

.0 

0, 

.974733E405 

0, 

,9743953495 

-7 

.0 

0, 

. 972445E405 

0, 

.9726433405 

0, 

.0 

0, 

, 970377E405 

0, 

. 970S7434Q5 

8 

.0 

0, 

, 96S23bE-!-05 

0. 

.3534273405 

16 

.0 

0, 

.966032E4O5 

0, 

.9551323405 

23 

.0 

0, 

,9540423405 

0, 

.9542213405 

31 

.0 

0, 

.9S1S53E405 

0, 

.9512313405 

38 

.0 

0, 

.9593369-^05 

0, 

. 9599243405 

4S 

.0 

0, 

. 9576433405 

0, 

. 95779QE-i-35 

53 

.0 

0, 

.9555103405 

0, 

. 355S37E405 

SIGMA  P P-YFIT  (P-YFIT)/SIGP  DEL  P 


0. 150E+92-0.631E+01- 
0. 159E+02-O.S53E+31- 
0.  175E-f02-0.694E+01- 
0. 152E+32-3,431E-i•31- 
0.  lS2E+92-a, 152E+02- 
0. 17SE+32-9.S0SE+01- 
0.  165E+02  0.23iii+01 
0. 17SE-i-02-3.21  lE+02- 
0. 1S2E+92-0. 143E+02- 
0. 153E+02-0.750E+91- 
0. 150E+32-3.  124E-^02- 
0.159E+32  0.23IE-;-02 
0. 1S2E+02  a.6G5E+01 
0.159EH-32  0.137E+02 
0.165E-:-32  3.133E+02 
0.170E+O2  0.155E+02 
0.1S2E+O2  0.221E~'-’32 
0. 159E+02-0.219E+01- 
0.1S2E-;-32  0.533E+ai 
O.152E+02  9.241E+92 
9.17oE+02  0.1E1E+01 
0 . 144E+92  0 . 243E+92 
0.17GE+92  0.731E-1-01 
O.1S5E+02  O-.7OOS+01 
0.167E+32  0.13b'EH-02 
0.  lo2S+22-9.533E-f-91- 
0.159E+92  0.313E+31 
0.159E+O2  0.243E-^82 
0. 1S5E+92  0. ISQE+02 
0.147E+02  9.3SSE^02 
0.IS7E+92  9.209E+02 
0.1S7E+O2  O.299E+02 
0 . 173E-J-02-9 . 625E-0 1■ 
0. 173E^-02-G.•lSSE-:-02• 
0.  153E+O2-9.93OE-:-01- 
0. 162E+32-9.  1 13E-f-92- 
0.  1S7E+02-0. 197E+02- 
0.  159E+02-O.293E+92- 
0. 159E+02-0. 144E+02- 
0.  153E+02-a.994E+01' 
0.  153E-^02-0.  l~GE+02- 
0.  159E-f02-0.  i31E+0i' 
0.  lo3E-032-9.  lcSE+02- 
0.  1S2E-H02-0.  150E^-92 
0.  159E+02-3.327E+02' 


•0.453E-i-O0  0.G0OE+C0 
•0 . 543E+00-0 . 207E-H03 
■0 . 394E+O0-0 . 233E+03 
•0.29EEH-00-0.232E+03 
•0 . 943E+00-0 . 2 1 5E+33 
•9.514E+00-0.223E+93 
0.  17IE+09-0.222E+O3 
■0.  1 1SE-I-O1-0.22SE+O3 
■0.SE6E-;-00-0.226E+03 
■0.472E+00-0,22EE-:-33 
■0.S2SE+00-0.20SE+O3 
0. 126E+01-0.20SE+O3 
0 . 375E+O0-0 . 2 1 7E->-03 
0.  llSE+01-0.21SE-i-03 
0 . 839E4O0-0 . 2O7E+03 
0.919E+09-0.22SE433 
0.  137E+01-0.224E+03 
•0. 13SE499-0.22EE4S3 
0 . 332E400-0 . 223E403 
0. 143E401-0.21 1E403 
0. 1O3E430-0.223E4O3 
0. 16SE4OI-0.207E403 
0.415E400-0.217E403 
0 . 425E400-0 . 229E403 
0.S14E409-0.222E4C3 
-0.332E40O-0.219E403 
0.  197E4O0— 0 . 220E403 
0. 162E401~0.207E403 
0. 16SE401-0.205E4B3 
0.25OE401-0.20GE403 
0. 125E4O1-0.215E403 
0. 17SE401-0.21SE403 
-0.3SOE-02-G.228E4O3 
-0. 1 15E4O1-0.24SE4S3 
-0.5SSE40O-0.215E403 
-0.70OE400-O.203E403 
-0. 1 1SE401-0.234E493 
-0. 19SE401-0.207E403 
-0 . 904E4O0-O . 20SE403 
-9 . G49E400-0 , 22CE-.  03 
-9 . 1 1 6E40 1 -0 . 204E423 
-0. 1 14E40G-e.2aEE403 
-9 . 1 1 4E40 1-0.2!  3E-1 33 
-0 . S2CE4GO-0 . 220E4O3 
-0.2O6E401-O.213E403 


I 


i 

I 


AlO 


61. 

0 

0. 

.953313E+05 

69. 

0 

0. 

,951 133E+05 

76. 

0 

0. 

, 943907E+05 

64. 

0 

0. 

,94S9S3E+05 

92. 

0 

0. 

,9449903+95 

99. 

0 

0. 

,9429533+05 

107. 

0 

0. 

, 940343E+05 

114. 

0 

0. 

, 93876SE+95 

122. 

6 

0. 

,93GS86E+05 

130. 

0 

0. 

,9347083+05 

137. 

0 

0. 

. 932676E+05 

145. 

0 

0. 

. 9305S3E+O5 

152. 

0 

0, 

.9284273+05 

160. 

0 

0, 

.9263233+05 

168. 

0 

0. 

.924183E+05 

175. 

0 

0, 

,922183E+05 

183. 

0 

0, 

, 92G307E+0D 

190. 

0 

0, 

.9183363+05 

198. 

0 

0, 

,9163073+05 

206. 

0 

0, 

.9142033+95 

213. 

0 

0, 

.9120863+35 

221. 

0 

0, 

.9099833+05 

228. 

0 

0, 

.9078433+05 

236. 

0 

0, 

.9956103+95 

243. 

0 

0, 

.9334603+05 

251. 

0 

0, 

.9314333+05 

259. 

0 

0, 

.8392933+35 

266. 

0 

0, 

.8972303+05 

274. 

0 

0, 

. 835 1833+05 

281. 

0 

0, 

.8931663+05 

0.953S09E-f-05  0.iS5E+92- 
0.951384E+05  0.1S2E+02- 
0 . 949433E+95  0 . 1 62E+02- 
0.94721SE+O5  O.141E-!-02' 
0.9459OlE-r05  0.147E+92 
0.943063E+D5  0 . 153E-I-92' 
0 . 94935 1E4-85  G . 147E-^02- 
O.93S919E+05  G.153E-^02- 
0.9357I2E-I-05  O.153E-!-02' 
0 . 934r593E-f05  0 . i 5SE+02 
0.9325S3E+95  0. 155E+92 
8.930335E+05  0.  255E-r92 
0.92S454E+95  0.17!Ev92 
0. 92627 lE-i-35  0.153E+02 
G.924932E405  0.159E-:-92 
0.9221  S3E-:-a5  0.141  E*h32 
G.9193S4E+05  0.144E+92 
0.91  S975E+05  0 . 1 62E*r92 
0.31539SE-!-05  O.153E+02 
0.913720E+05  0.159E+92 
0.911319E+95  0.155E+92 
0 . 909S48h*r05  0.  1S7E+02 
0.9O7751E-K05  0.173E-^02 
0.9055GSE+G5  8.157E+82 
O.903394E+05  0.1S2E+32 
0.9Oi534E+95  0.159E+92 
0.899377E-f05  0.147E+O2 
0 . 897493^405  0 . 1 56E+32 
0 . 895342E+05  0 . 1 59E+32 
0.S93452E+05  0.15GE+02 


•0.296E+02-0, 
-0.251E+92-O, 
■0.532E-rO2-0, 
•0.255E+92-0, 
■9. 1 13E491-0, 
■0. 1 1CE402-0, 
-0.375E-I-09-0, 
•0. 152E-i-92~0, 
-O.255E491-0, 


1E0E4O1- 

155E-:-8l- 

329E401- 

1S9E401- 

764E-91- 

719En'C0- 

5S4E-01- 

SS0E4G3- 

167E493- 


-0.223E+03 
-0.21SE403 
-0.223E+93 
■0 . 194E+03 
-0 . 1 9 1'  E+B3 
■0 . 204H+03 
-0.21 lE+93 
-O.20SE+03 
-0.20SE+03 


0. 

, 191E-I-32 

0. 

, 1233 

+01- 

-0. 

, 1393 

+93 

0. 

,931E+91 

0. 

,597E+00' 

-0. 

,2023+03 

9. 

, 17SE+02 

0. 

, 1 123 

-i.n  1 . 

, w - 

-0. 

,2113 

+03 

■9. 

,3S3E+01- 

-0. 

,2163 

+80- 

-0. 

,2143 

9. 

,5123+31 

0. 

, 3343 

-'-03- 

-0, 

,2103 

+03 

0. 

, 1913+02 

0. 

,6383 

+33' 

-0. 

,2143 

■i'03 

0. 

, 1503+01 

0. 

, 1063 

+00' 

-0. 

. 200b 

+03 

0. 

,3233+02 

0. 

,2243 

+ 01' 

-0. 

1 i C w ^ 

+03 

0. 

,2613+02 

0. 

, 1623 

+3  T 

-0. 

, 1973+03 

0. 

,41 13+02 

0, 

,2683 

+01' 

-0. 

,2033 

+33 

3. 

,4333+02 

0. 

, 3223 

+C  I- 

-0. 

,2103 

+03 

0. 

,2633+02 

0. 

, 1723 

+37 

-0. 

,212E 

+03 

9. 

,3353+02 

0. 

,2003 

+07 

-0. 

.210E 

+03 

0, 

,S13E+01 

0. 

,5263 

+ 00' 

-0. 

.214E 

+03 

0. 

,2383+01 

0. 

. 1423 

+03 

-0, 

.2233 

+03 

■0. 

, 234E+32- 

-0. 

, 1453 

+0  7 

-0. 

.2153 

+03 

■0. 

. 1913+02- 

-0. 

,6373 

rs 

-3. 

. 2033 

+03 

•3. 

.8593+91- 

-9. 

.5773 

+03 

-0, 

.2143 

+03 

•0. 

.2133+02- 

-0, 

. 1 37  ti+3 1 

-a. 

.2013 

+03 

•0, 

, 1593+02- 

-0, 

. 1003 

+07 

-0, 

.2103 

+03 

-0.296E4O2-9. 197E+31-0.202E403 


POLWCMIfiL  COEFFICIENTS  FOR  FACTOR  1 

ccEFF  SI  cm 

0.970S7437E-I-05  0.34519031E431 
>0.281145783+02  0. 1393539SE-01 
0.22657185E-O2  0.95330075E-04 


REDUCED  CHI  SQUARE = 397.19 

PTEST  = 0.97E+OS 


RMUL  = 0.10E+01 


R(l)  = -0. 

103+01 

R(2)  ■=  0. 

903-02 

TIME 

P 

YFIT 

>281.0 

0.3Q666Oi.+Go 

0 . 30o6o2z.+G5 

-274.0 

0 . 3067833+95 

9.3OSS513-r05 

-266.0 

Q.3G6S17E+05 

0.3066513-1-05 

-258.0 

0. 3067673+05 

8.3066513-1-05 

-251.0 

0. 3067033+05 

O,30S6503-!-G5 

-243.0 

0.3OSS47E-:85 

0. 3365503+05 

-235.0 

0 . 3Ob''jo0L:-f 

0.30S.E;5G3->-05 

-228.0 

0 . SOoSESE-t-GS 

0 . 3366433+05 

SIGMA  ? P-YFIT  (?-YFIT)/SIGP  DEL  P 
0.115E+91  0.820E+O0  0.71CE-^00  0.C00E+09 
0.S32E-HDO  O.132E+02  O.149E+02  0.123E+02 
O.333E+C0  0.1GSE+92  0.497E+02  O.334E+01 
O.333E+30  O.HbEf02  0.3433+02-0.5003+01 
0 . 333E+90  0 . 539E+0 1 0.158  E+02-0 . 634E+0 1 
0 . 333E+30-0 - 323E+03-9 . 9C4E+90-0 . 56SE+0 1 
0.999E+00-3, I95E+01-O. lSCE+lo-0. lb7E+01 
0 . 333E+00— 0 . 259E+0 1~0 . 77SE+0 1—0. 6r'2E+30 


t 


All 


220.0 

212.0 

205.0 

197.0 

193.0 

182.0 

175.0 

167.0 

159.0 

152.0 

144.0 

136.0 

129.0 

121.0 

114.0 

106.0 
-93.0 
-91.0 
-83.0 
-75.0 
-68.0 
-60.0 
-53.0 
-45.0 
-38.0 
-30.0 
-22.0 
-15.0 

-7.0 

0.0 

8.0 

16.0 

23.0 

31.0 

38.0 

46.0 

53.0 

61.0 

69.0 

76.0 

84.0 

92.0 

99.0 

107.0 

114.0 

122.0 

130.0 

137.0 

145.0 

152.0 

160.0 
168.0 

175.0 

183.0 

190.0 

198.0 


0.306627E+05 

O.30S649E-f05 

0.333; 

0 . 3056 1 GE+05 

O.30S64SE+05 

0.033; 

9.3OG32GE+05 

3 . 20GG43E+03 

0.033; 

0 . 3O6600E+05 

a . 305648E+0O 

0.030: 

0 . 30  -'1  -•  i b,r.'r0b 

9 . 30G647E+05 

0.333; 

0 . ZGbG27E+G5 

0 . 305647E"i-05 

G . 333' 

0.3O6517E+G5 

0.305S47E+05 

0 . 333; 

0 . 3063 13E-I-95 

9 . b0S54SE+0b 

0 . 333; 

0 . 39b640E+G5 

0 . 33S646E+05 

0.000i 

0 . 396643E+G5 

0 . Z0664SE+85 

0 . bbb! 

0.30bG27E+05 

0 . 305543E+05 

0 . 33b. 

0 . 306b3b£+0.b 

G.3GbS45E+e5 

0 . 33  = ; 

0 . 33665GE‘i‘05 

0 . 303S44E+03 

0 . 033; 

0 . 3G6b47E-i-0b 

9 . 3GS644E+05 

9 , 333! 

0 . 30S637E+G5 

0 . 3G5S44E+05 

0.333' 

0 . 3G6530b+83 

0 . 33SS43E+G5 

0.033: 

O.30662OE+G5 

0 . 306543E+95 

9.003' 

0 . 3G6627E+05 

8 . 305b4-3E+93 

0.333! 

0.30oS37E+05 

0 . 303b42E+35 

0.333! 

0 .3066403+05 

0.30G642E+35 

0.033! 

0 . 30SS3O=H-O5 

0.30S641E+95 

3.003! 

0 . 3Qbb38E+05 

G.3GSS41E+35 

0.000 

6 . 3C5o50E+G5 

0.3056413+35 

0 . £ 0 j 

0 . 30SS23E+G5 

0. 3055433+05 

0.333 

0 . ,i06b0>iE+93 
0 . 3QSS37E-r05 
0.3OSbOGE-i-O3 
0 . 30S5S7E+0D 
0 . 30639GE+05 
0 . 30S537E+3o 
0.3OS573E405 
0 . 336S50E+9b 
0.3OSoSGE+O5 
9 . 3O6S70E'!'0b 
0 . 30S’ob7E+95 
0 . 3GSEb0E'r33 
0 . 30ob33E+05 
0 . b0oG27E*:'O5 
0 . 3Obb4OE'f-0D 
0 . 306S40E+05 
0 . 306S37E+05 
0.30SS29E+05 
9 . 30SS57E+O5 
0 . 30S'oS7E+0o 
0 . 30c'b5OE+05 
0 . 30oS67  LI. +05 
3 . 30bb77E+G5 
0 . 30Go57E+O5 
O.30Sb2GE+05 
0 . 30Db2OE+G5 
0 . 30Sb27E+03 
0.3066103+05 
0.3G554OE+05 
0 . 3056  1 GEi'‘0b 
0 . 3GG6G7 1+05 
0 . GGObGr"  t.+c.'b 


9-0.221E+01- 
3-a.334E+01- 
G-0.531E+31- 
0-0.477E+31- 
0-0.341E+D1- 
O-3.295E+01- 
0-0.300E-*-0'- 
0—9  • 33Gb.+a  1 ■ 
9-2.5S5E+0O- 
0-O.223E+G0- 
9-0. 134E+G1- 
0-0 . 1 15.E+0 1 ■ 
0 0.55SE+00 
0 0.25SE+30 
0-0 . 6S3E+G0- 
9-0.  133E+91- 
3-9.22SE+01' 
3-0. 159E+91- 
0-9.551E+39' 

9- 0. 1S3E+90 
3-0. 114E+01 
3-0. Ill £+31 
3 0.93GE+30 

10- 0 . 173E+9 1 
0 . 33564GE+35  0 . 333E+93— 0 . 367E'’c9 1 
0 . 33554GE+35  G . 333E+S3-9 . 329E+3 1 
0 . 3G3b3SE+05  0 . GG3E+33-0 . 392E+3 1 
0 . 306S39E+G5  0 . 333E+33-0 . 422E+0 1 
0 . 3G563oE+35  0 . G0GE+00-0 . 435E+9 1 
0 . 33oS3Si:i'!-G5  0 . 65 r =,+03—3 .131 E+02 
0 . 30S533E+05  8 . S32E+03-3 . 645E+9 1 
O.30bb37E+05  0.G33b.+G3  0.126=+31 
0.33bS37E+35  G.003E+G3  0.42SE+31 
0.30bG37E+Q5  0-O0OE+G3  0.333E+31 
O.3G363SE+05  0.b3=E+33  0.334=+01 
0 . 33bb36E+05 
0 . 30SS36E+G5 
0 . 306635E+35 
0 . 30ob35E*i'35 
0.3Q6534E+05 
0 . 33Sb34E+G5 
G . 3Gbb34E+Q5 
0 . 33ob33E+G5 
0 . 3God33E+05 
3 . 3G5633E+G5 
0.30S632E+05 
0 . 305b32E+3b 
0.39S632E+G5 
0.3B5G31E+05 
0 . 33663 lE+05 
0 . bOobbGE+Gb 
0.3SG533E+G5 
O.3G6b30EH-9D 
0.3GSb29E-i-Q5 
0.3G6629E+05 
0 . 3Gb623E+05 


0.343E+00 
-0.  167E+01 
-0.203E+G1 
0.  ICGE+Gl 
0.  133E+01 
0. 134E+01 
-0. lGGE+01 
'0 . b4GE+00 
0 . 257E+3 1 
O.32EE+0O 
-0. I55E+01 
0 . bbGE+80 
0 . 1 S7E+9 1 
-0.332E+00 
-0. 10GE+31 
-0.£cSE+C3 
-G. ieGE+01 
G.6SSE+03 
3. ICGE+ai 
0 . b32E+33 
-0. ieOE+31 
0 . GG0E+GO ■ 
C,2GGE+ai 
-0.267E+ai 
-0.2C0E+01 
G.343E+30 
■0 . 665E+39 
-0.332E+30 


Q. 

,0303+90 

0. 

,2413+01 

0 

0. 

, 3333+00- 

-0. 

,234£+30- 

-3 

0. 

,3333+33- 

-0. 

1 0w3b-'*ba' 

-3 

0. 

,0933+90 

0. 

,5153+30 

0 

0. 

,0303+30 

0, 

, 5513+00 

a 

0. 

. 3333+03 

0. 

,2533+30 

0 

0. 

,0a33-;-03- 

-a. 

, 1373+01 

-0 

0. 

, 3333+00 

0. 

.233E-I-01 

0 

0. 

, S_J  W,  ..  ' w 3 

a. 

. 3o7E+0 1 

0 

0. 

,0333+00 

0. 

, 173E-r01 

3 

0. 

. 3333+33 

a. 

. 3443-K0 1 

0 

0. 

. 3333+03 

0. 

. 4433+0 1 

0 

0. 

. 3333+00 

0, 

.2523-1-01 

0 

0, 

.5773+93- 

-0, 

. 1 1 lE-.'-ai 

— 0 

0, 

,0333+03- 

-0, 

. 1083+01' 

-0 

0, 

.•3333+33- 

-0, 

,375£-!-a3 

-0 

0, 

.5773+03- 

-9, 

. 2003+0 1 

-0 

0, 

.3033+33- 

-3, 

. 39  i'c.+3 1 

-0 

0, 

.5773+03- 

-0, 

, 1933+31 

-0 

8, 

. 3333+33 

0 

,3773+31 

3 

0. 

. 3333+00 

6 

.3313+01 

0 

O.bb^b+Ul 

0 . 334E+1 6— 
0.501E+16- 
0 . 477E+ 1 6 
9.  1G2E+G2 
0.6GEE+G1 
a.S9£E+01- 
0.2SrE+Ol- 
0.SS6E+15 
■0.b58E+G0 
■0.553E+GI- 
■3.345E+G1 
0.53EE+15 
0.797E+G9' 

■0.21GE+G1' 

•0.  133E+16' 

•0.22SE+16- 
•0.477E+O1 
•0.  i65E+Gl 
■0.  1S9E+15 
•0.  1 14E+16 
■0.  lllE+16 
G.930E+15 
■0.51 lE+91 
■0.  llCE+02 
■0.S2EE+01 
■3.3S2E+16 
■0 . 127E+G2 
■a.435E+lb-0.65SE+G0 
■0. 152E+G2 
■0 . 732t:+3 1 
0.12bE+16  £!.767t+01 
3.42SE+lS  a.3GGE+01 
3.333E+16— G. 103E+91 
0 . 3o2=+03 
Q.663E+G3 
0.267E+91 
0 . £6OE+L'0 
0.  133E+31 
0 . 6G3E+G0 
0.332E+G0 
G. 167E+31 
^G2E+01  0.367E+01 

:g:e+g2  0. 10OE+01 

;73E+lb-0. 167E+01 
[03E+G2  0.I67E+31 
i34E+02  8.1£0E+01 
’55E+O1-Q.2C0E+31 
[93E+01-0.367E+31 
lGSE+16  0.0OGE+03 
[12E+01  0.668£-:C0 
347E+01-0. 167E+01 
:!07E— 1 6-0 . 70GE+0  1 
i:34E-^01  0.7GGE+01 
[13E+G2  G.567E-^01 
114E+G2  0.O0OE+G0 


d 
0 
0 

42SE+lS  a 
333E+1G— G 
0.91  lE-r01- 
241E+1S- 
7C3E+G0- 
257E+3 1- 


533E+01 
36£=+8 1 


-d.  Jbri 


-16- 


A12 


206.0 

213.0 

221.0 

228.0 

236.0 

243.0 

251.0 

259.0 

266.0 

274.0 

281.0 


0.306657E+O5 
0 . 3ob650E-!-05 
0.3OG640E+05 
0.3QS63GE-f-O3 
0 . 306500E+05 
0 . 30SS30E+05 
0 . 30Sb37t.'rGo 
0.30SS47E-T05 
0.3GSS27E+05 
0 . 3GSS3Ob.+05 
0 . 30S663E+05 


0 . 3O6S23E-.’-05 
0 . 30Sb2oE+95 
O.30qS27E+85 
0 . 30b627E-r05 
0 . b3SG27E-'r05 
0 . 30SS2Gb+O5 
0 . 30ob2S£'r95 
0 . 33oo2b£'i-Q5 
0 . 3OS625E-i-05 
G . 306625E'!"0o 
O.306625E+05 


O.333E+03 
0.O00E+03 
0.033E'r03 
0 . 030t."^00 
0 . 033E+30' 
G.C33E+30 
0 . 333-+30 
0 . 33bb+39 
0 . 333E+33 
0 . 033E-I-33 
0 . 333E+03 


0.2S5E+01  0. 
0.221E-f-31  0. 
a. 125E+01  0. 
0.233E+30  0. 
-O.267E+01-0, 
O.bboE+OO  0, 
0.1O7E-;-01  0, 
O.211E-f01  0, 
8.141E+00  0, 
0.512E+33  0, 
0.387E+01  0, 


G55E4-01- 

221E+15- 

125E-M5- 

23SE+15- 

2S7E+ 1 5“ 

363E+15 

32GE+01 

632E+31 

422E-.'-E3- 

512E+15 

116E-^02 


0. ieCE+01 
0 . 66SE+00 
■0. 1B0E+31 
0. 103E+01 
■0.3BCE+31 
O.33OE+01 
O.66SE+0O 
0. leCE+Ol 
0 . 200E+9 1 
0 . 332E+03 
0 . 33bE+0 1 


POLYNOMIAL  COEFFICIENTS  FOR  FACTOR  2 
COEFF  SIGMA 

0.306638 16E+35  0.47010167E+0O 
-0.48555051E-02  0.298562002-02 

REDUCED  CHI  SQUARE=  17.14 

FI'EST  = 0.23E+01 

RMUL  = 0.19E+O3 

. R(l)  = -0. lSE+00 


EXTRAPOLATION  TI^ES  ABOUT  MID  POINT  OF  PLATEAU  FOR  POLYNOMIALS 
FIRST  PLATEAU  = -4S4.  464. 

SECOND  PLATEAU  = -453.  453. 

REAL  TIMES  ARE  182.  SECONDS  ON  EITHER  SIDE  OF 

204.  769.  FOR  FIRST  PLATEAU,  AND  1133.  1695.  FOR  SECOND 


EXTRAPOLATED  VALUES  AND  SIGMAS  BACK  AND  FORWARD  IN  TIME 
THEN  PRECISIONS,  = BACK,  FORWARD  AND  REQUESTED 


R1 

-0.332E-f32 

O.891E-01 

-0.263E-}-32 

0.89IE-31 

339. 

292. 

30 

FI 

0. 1 1 !E-^-05 

0.217E-f32 

0.845E-^05 

0.217E-f02 

5196. 

3304. 

100 

F2 

0.307E^-a5 

0.  143E-»-ai 

0 . 3O7E-^05 

0.  143E-f31 

21479. 

21476. 

100 

ACTIVATION  ENERGY  FROM  =ACTIVE= 

E SIG  E FACTOR  OR  RATE 

67.925  0.593  428.96  0.04  -0.51S9E+02  0.1263E-r03 

421.30  0.02  -0.3021E+02  0.8310E-01 

CONTRIBUTION  OF  RATE  AND  TEMPERATURE  TO  VAR  I ANCE  ( =S  IG£>!oK2) 
RATE  TE7P 

0.2352-^-00  0.  123E-t-03 

NUMBER  OF  POINTS  USED  TO  GET  POLWOMIALS  WAS  75  AND  75 

E VALUES,  TIMES  AND  SAMPLE  WEIGHTS  SO  FAR: 

1 67.925  0.593  951.  0. 1 10725E-f06  21.11 

FACSET 

- 433.0  1 


A13 


2 


14  #D  7698; 
FACSET 

0.0 

14  -SD  0000: 
FACSET 

0.0  3 

14  *G  0000: 
FACSET 

0.0  4 

14  =l>G  0000; 


FACTOR  LEVELS  SET  TO  433.000  0.000  0.000  0.000 


MEASUREMENT  FOR  PLATEAU  NUMBER  3 


NO. 

F 

I 

READING 

SIGMA 

RD 

TIME 

BAD 

RCHI 

TESTCH 

1 

1 

0 

0.7689969E+05 

0.2323329E4O2 

3 

2964. 

0 

0.0 

4000.0 

1 

2 

1 

0.3131233E+05 

0.333334SE403 

o 

2864. 

0 

0.0 

1500.0 

2 

1 

0 

0.7659 13  lE-l-05 

0. 235737 1E402 

3 

2071. 

0 

0.0 

4600.0 

2 

2 

1 

0.3131O33E+G5 

0 . 333334SE400 

3 

2071. 

0 

9.0 

1580.0 

3 

1 

0 

0.7625269E+05 

0,251 1530E402 

3 

2079. 

0 

0.0 

4000.0 

3 

2 

1 

0.31303S0E-:-O5 

0.eG9O030E430 

3 

2079. 

0 

0.0 

1500.0 

4 

1 

0 

9. 759343  lE-:-05 

0.251 1530E402 

3 

2086. 

0 

0.0 

4600.0 

4 

2 

1 

0.313O333E+O5 

0 . 3333346E4O0 

3 

2086. 

0 

0.0 

1560.0 

5 

1 

0 

0.7560 169E+05 

0.2425 10 1E402 

3 

2094. 

0 

0.0 

4660.0 

5 

2 

1 

0.31 30433E+05 

0 . 333334SE4O0 

3 

2094. 

0 

0.0 

1500.0 

6 

1 

0 

0.7526490E+G5 

O.24S2b35E402 

3 

2102. 

0 

0.6 

4836.0 

6 

2 

1 

0.3130233E+35 

0 . 333334SE+09 

3 

2102. 

0 

0.0 

1500.8 

7 

1 

0 

0.7492bOCE+03 

O.24S2S05E4O2 

O 

2109. 

0 

0.0 

4006.0 

7 

2 

1 

0.3130300E+95 

0 . GB8O0O0E400 

3 

2109. 

0 

'.0.0 

1560.0 

8 

1 

0 

0.74S0S00E-^95 

0.2367 13SE402 

3 

2117. 

0 

0.0 

4600.8 

8 

2 

1 

0 . 3 130S0Ob+05 

O.GOOG000E400 

3 

21 17. 

0 

0.0 

1560.0 

9 

1 

0 

0. 742953 lE+05 

0 . 23960b2c.402 

3 

2124. 

0 

0.0 

4060.0 

9 

2 

1 

0.3130333E+O5 

0 . 333334SE400 

3 

2124. 

0 

0.0 

1560.0 

10 

1 

0 

0. 739723 lE+85 

0 . 2397452E402 

3 

2132. 

0 

0.0 

4000.0 

10 

2 

1 

0.31391S7E-f-05 

0 . 333334SE430 

3 

2132. 

0 

0.0 

1560.0 

11 

1 

0 

0. 736503  lE-;a5 

0 . 2389342E402 

3 

2139. 

0 

0.0 

4060.6 

11 

2 

1 

0.3130200E+O5 

O.G030000E400 

3 

2139. 

0 

0.0 

1500.0 

12 

1 

0 

G.73333GOE405 

0, 2424372E402 

3 

2147. 

0 

0.0 

4060.0 

12 

2 

1 

0.3130200E+O5 

0.e0O090OE4a0 

3 

2147. 

0 

0.0 

1500.6 

13 

1 

0 

0 . 730203 1 £405 

O.2333329E402 

3 

2154. 

0 

0.0 

4600.0 

13 

2 

1 

0 . 3 13G033E405 

0 . 333334SE40O 

3 

2154. 

, 0 

0.0 

1500.0 

14 

1 

0 

0. 727073 1E405 

0 . 2453795E402 

3 

2162. 

0 

0.0 

4600.0 

14 

2 

1 

0.3130033E405 

0 . 333334SE400 

3 

2162. 

0 

0.0 

1500.0 

15 

1 

0 

O.723S20OE405 

0. 230940 1E402 

3 

2170. 

0 

0.0 

4000.8 

15 

2 

1 

0.3129400E4G5 

0.57735OSE40O 

3 

2170. 

0 

0.0 

1560.0 

16 

1 

0 

0.7207600E4U5 

0.2231032E4O2 

3 

2177. 

0 

0.0 

4609.0 

16 

2 

1 

0.3129633E4O5 

O.S819175E4O0 

3 

2177. 

0 

0.0 

1500.0 

17 

1 

0 

0.7175S0CE405 

G.242S930E4G2 

3 

2105. 

0 

0.0 

4060.0 

17 

2 

1 

0.313O457EHO5 

0 . 3o33346E'i'00 

3 

2185. 

0 

0.0 

1506.0 

le 

1 

0 

0.7 143331  EH  05 

O.23960b2E4O2 

3 

2193. 

0 

0.0 

4060.0 

18 

2 

1 

O.3130900E405 

O.OG00O00E400 

o 

2193. 

0 

0.0 

1500.0 

] h 'i  ‘i 
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TGRUNF  summary  obtained  for  latest  10  activation  energies. 
The  calculations  are  performed  at  the  end  of  every  temperature 
plateau. 


E VALUES,  TIIES  AND  SAMPLE  HEIGHTS  SO  FAR: 


1 67.212 

0.710 

5979. 

0.947759E+05 

47.62 

2 61.138 

0.467 

6793. 

0.763499E-r05 

51. 19 

3 70.099 

0.883 

7612. 

0.43955SE+05 

55 .51 

4 63.63? 

0.691 

8431. 

0 . 32862Sci+35 

53.64 

5 59.779 

0.631 

9243. 

0.917692E+04 

64.24 

6 -63.345 

0.516 

18055. 

-0.433650E^■84 

66.96 

7 69.759 

0.791 

18374. 

-0 . 25 1777E+05 

70.91 

8 66.657 

0.399 

11781. 

-0.380 lOSE+05 

73.40 

9 66.230 

0.653 

12685. 

-0.639526E-:-05 

73 . 44 

10  63.573 

0.366 

13538. 

-0.777644E+05 

81.12 

WEIGHTED  MEAN  E IS 

64.447  + 

OR  - 0.172 

REDUCED  CHISQ  FOR 

E CALCULATION  IS  28.410 

(SHOULD 

UNWEIGHTED 

MEAN  OF 

SIGMAS  IS 

0.612 

CALCULATED 

OVER 

9.  DEGREES 

: OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  UlTHIN  RANGE  64.110  TO  64.784 
FOR  95%  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  E AND  UNBIASED  ESTIMATE  OF 

SIG  E ARE  65.143  AMD  1.033  WHICH  GIVES  CONFIDENCE  RANGE 

OF  63.016  TO  67.230 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  39.26 
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FORTRAN  listings  for  the  routines  in  the  program  TGRUNF,  which 
runs  the  computer-controlled  factor-jump  thermogravimetry  apparatus 


: SflSSM 

i T&RLIN  PROG 
' SPORT 
1 STRGT  16 

! C 

C TGRUN  PROGRAM 

C 

C jfoMof=K><<>!oK>»:>foh>»otc>tc4o4c>lr5lDlotoK>io»K5fo(2loK5i=1>s<sfctniotofoMoioMcHo^^ 

c 

C MAIN  PROGRAM  TO  RUN  THERMOGRAVIMETRY  EXPERIMENT 
C L'RITTEtl  BY  B.  DICKENS 
C NATIONAL  BUREAU  OF  STANDARDS 
C WASHINGTON  D.C.  ' - 

C TELEPHONE  (301)  921-3322 
C 

C FOR  DOCUMENTATION,  SEE  NES  INTERNAL  REPORT  S3$ 

C 

C THE  MAIN  PROGRAM  NEEDS  ALL  COMMON  BLOCKS 

C 

C COMMON  /BIAS/ 

C '-EOMMON  /DERIVE/ 

C COMMON  /FACTR/ 

C COMMON  /lO/  ■ ■ . • 

C COMMON  /MIDASR/ 

C COMMON  /PARAMS/ 

C COMMON  /PLAT/ 

C COMMON  /STEPS/  . 

C COMiMON  /WHEN  / 

C 

C THE  PROGRAM  CALLS  THE  FOLLOWING  SUBROUTINES: 

C 

C ACTIVE  . 

C BAKEIT 

C BIASVL 

C EXTPOL 

C FACSET  ' • • . _ 

C INIT  . ■■  . . . 

C OVERLY 

C PLATTO  . . ■ - • • 

C PRECIS  . - . • i ■ 

C PRIME 
C RESPON 

C TRAMID  ■ - 

C UTAVER 

C 

C 8 FACTORS  MAXIMUM 

C 

c 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP(SOO) 

C 

C COMMON  /BIAS/ 

C 

DIMENSION  BIASVC3),SIGBV(S) 

EQUIVALENCE  ( B I ASVC 1 ) , DUMP ( 1 ) ) , CS IGBVC 1 ) , DUMP (9) ) 

C 

C COMMON  /DERIVE/ 

C 

EQUIVALENCE  (PRECE,DUM?( 131) ) • 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(S) . IFUNCT(S) , IFDER(S) . INPUT(S) , SCALE (8) 

8., NRANGE(8)  ,NREADS(3)  .NTERM3(3),CHTEST(3),PTIME(3) 

8., PRECF(S),PRECR(8).AT(4) 
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EQUIVALENCE  . I'ULIP (17) ) , (KHMCU C 1)  , DUrP ( 18) ) 

&,(IFUNCT(  1)  .LLir;?c:s)) . ( iflerc  i)  .lij;p(3J)  ) 

&,  ( INPUTC  1)  ,IilJiiP(4P)  ) , ( SCALE ( 1)  .DUriPCSQ)  ) 

8.. (NRANGE(  1)  .DUfiP(33)  ).  (tPEADS  C 1 ) . DUf :?  ( £5) ) 

8..  (HTERr-i3(  1)  .DUiiP(74)  ) , (CHTESK  1 ) , DUr.P  (32)  ) 

5.,  (PTINE(  1)  ,DUr:?(£:i)  ) , (PRECFC  D ,L'Ufi?(S3)  ) 

8.,  (PRECR(  1)  ,DUriP(  !CS)).  (tiFACTS.  DUr  ;P  ( 1 14)) 

& , (NRATES . DUMP  ( 1 1-5 ) ) , ( 7 1 ML  I M . DUI P ( 1 1 6 ) ) 

8.,  (NBADS,DUr;P  i . 17) ) . ( IM7VAL,  LUrP  ( 1 13) ) 

&,-(AT(l)  ,DUrP(.  1 13) ) , (TSCFlLE,DUrP(  130)  ) 

corroN  /lo/ 

EQUIVALENCE  (NTTYI  .DUMP ( 123) ) , (NTTYO.  D'JI4?(124)  ) 

&.  (NPR INT,  DUMP  ( 125) ) . CNF  ILEA,  lUlP  ( 125)  ) , (N.F  ILE3,  DUMP  ( 127)  ) 

8.,  (NF  ILED,  DUMP  ( 123) ) , (NF  ILEE,  DULP  ( 123)  ) 

COMTION  /niDASR/ 

■ INTEGERX<2  OUT(20)  ,REPLY(23)  ,NUM(  10) , JUN’K2(  18) 

EQUIVALENCE  (OUT(  1 ) , DUf1P ( 1 40) ) , ( REPLY ( 1 ) ,DUf'P(  ISO) ) , (NUM(  1 ) 

DUMP  (130) ) , (JUNK2(1),0UT(3) ) , (NF IL7R, DUMP  ( 130) ) , (NVDC. DUMP ( 13 1 ) ) 

COMMON  /PARAMS/ 


DIMENSION  A01(3),AQ2(3),SIGA01(8) .SIGA02(8) 

8., A1(4,3)  ,A2(4,0)  .3IGA1  (4.S)  ,SIGA2(4.3) 

8., FACT1  (2,8)  ,SIGF  1 (2,3)  ,RATE1  (2,8)  .SIGRl  (2.S) 

&,FACT2(2,8) ,S!GF2(2,3) ,RATE2(2,8) ,SIGR2(2,3) 

8., TIMEF(2),TIME3(2) 

EQUIVALENCE  (AOl  ( 1 ) ,D'JLP(200) ) , (A02  ( 1 ),  DUMP  (208)  ) 

8.,  (SIGAOl  ( 1)  ,DUMP(2  IS) ) , (S IGA02  ( I ) , DUMP  (224) ) 

&,  (A1  ( 1,  1)  ,DUrP(232) ) , (A2(l,  1 ) ,DUrP(254) ) 

8.,  (SIGAl  ( 1,  1)  ,DUM^(28S) ) , (SIGA2(1.  I ) , DUMP (323)  ) 

EQUIVALENCE  (FACTKl,  1 ),  DUMP  (350)  ) , (SIG-KI.  1 ).,  DUMP  (376)  ) 

&,(RATE1(1, l),DUrP(392)), (SIGRl (1, 1 ), DUMP (403) ) 

8., (FACT2(1,  1)  ,DUMP(424)  ) , (SIGF2(1,  1 ), DUMP (443) ) 

&,  (RATE2( 1, 1) ,DUMP(435) ) , (SIGR2( 1, 1 ) , DUrP  (472) ) 

&,  (K0UNT1,DUMP(4S3)  ) , C!(CUNT2,  DUMP  (433)  ) 

EQUIVALENCE  (TIMEF(  1 ),  DUMP  (500) ) , (TIMES  (,1 ), DUMP (502)  ) 

8.,  (DAY,DUMP(504) ) , (HDTIME, DUiP(595) ) 

8.,  (SKIP,DUhP(5£’5) ) , (RATMIN, DUMP (597) ) , (RATMAX, DUMP (503)  ) 

&,(TJUMP, DUMP (503)) 

CONMON  /PLAT/ 

DIMENSION  RCHK8) 

EQU I VALENCE  ( LPLAT. DUMP ( 5 1 0 ) ) , ( NEL APS . DUMP (511)) 

8-,  (NPIRST,DLTP(512)) , (fOCH  I , DUMP  (5 13) ) , (N5TCP,  DUMP  (5 14)  ) 

&, (START. DUMP(515) ) . (RCH I ( 1 ) , DUMP (5 1 6) ) 

& . (NOTHER , DUMP ( 524 ) ) , C KSTORE , DUMP ( 525 ) ) 

&, (ENDSIG,DUMP(52o)) 

8.,  (T0IM4,DUMP(527) ),  (FACTIM,DUM?(523)),  (EQUIL,DUM?(523)) 

COMMON  /REGRS/ 

DIMENSION  M(5),R(5).YFIT(250) 

EQU  I VALENCE (MCI), DUMP  (530) ) . (R C 1 ), DUMP  (535) ), (YF IT( 1 ), DUMP (540) ) 
COMMON  /STEPS/ 

DIMENSION  F(4).DELF(4),DESIGN(4. 16), FDER(4) 

EQUIVALENCE  (F( 1) -DUMP (300) ) . (DELE ( 1 ). DUMP (804) ) 
e..(DESIGN(l.  l),DUrP (303)),  (NFVEC, DUMP (872)),  (FDER(l), DUMP (873)) 
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C COhMCN  /UHEN/ 

C 

DIMENSION  TPLOTl  (2)  .TPL0T2C2)  .NTY^:E(3) 

EQUIVALENCE  (EEG IN, DUMP (ECO) ) . (TFLAT 1 ( 1) , DUMP (83 1) ) 

(TPLAT2C 1)  ,DU:i?(333j ) , (NTVf  :E  ( 1 ) . DUMP>  (335) ) 

C 

c 

c 

DIMENSION  TF(5.S)  .STF(5.S)  .TYT^(5)  .FTIMEC4) 

E.,PRECFF(8)  .PRECFQ(S)  ,PRECRF(3)  ,PRECP3(3) 

8., PSTOFF(S)  .PSTQFB(3)  ,PS7GRF(3)  .FSTCR3(3) 

8., E(10),SIGE(  10),TEr:?(2,  10).SIGT(2,  10)  , ETIM£  (10) , SAMPLJTC  10)  ,C  ( 10) 

5., ERATE(2,  10)  ,SiGER(2,  10) 
fc,EFACT(2, 10) ,SIGF (2, 10) 

8., NPTS(2,  10) 

C 

c 

C OVERLAY  NAMES 

C 

INTEGER>i:2  ISETl  (3) , ISET2C3) , ISET3C3) , IFACT(3),  IPLATTC3) 
IPR£CS(3), ISTATS(3) 

C 

DATA  ISET 1 /' OS ’ . ' ET' , ' U 1 ' I SET2/"  OS' , ' ET* , ' U2' / 

!SET3/'03' , 'ET' , *U3'/ 

IFACT/'OF' ,'AC', 'TS'/, IPLATT/'OP' ,'LA','TT'/ 

8.,  IPRECS/'OP' , 'RE'  ,'CS'/,  ISTATS/' OS' , ' TA' - ' TS' / 

C 

C ASSIGN  OVERLAY  LOGICAL  UNITS 

C 

NSETUP=11 

NFACT=12 

NPLATT=13 

NPRECS=14 

NSTATS=15 

r 

C INITIALISE  MIDAS  ARRAY  =OUT=  TO  CONTAIN  SHARP  SIGN 

C 

0UT(2)=X'23' 

C mX  NUM3ER  OF  ACTIVATION  ENERGIES  FOR  RUNNING  AVERAGE 
HENG=10 
NENG1=NENG-1 
C • 

732  CALL  OVERLY( ISETl, NSETUP,0) 

CALL  IN  IT 
CALL  PRIME 
CALL  DESYNE 
C 

C CHECK  RESPONSE  TIMES 

C 

CALL  OVERLYC ISET2.HSETUP, 1) 

CALL  RESPONCFTIME.NERRCiR) 

IF(NERROR.LE.0)GO  TO  730 
L'R  I TE  ( NTTYO  ,731)  riZRROR 

731  FORMAT('  ERROR  VALUE  OF', 12,'  FROM  RESPON  SUBROUTINE') 

GO  TO  732 

C 

C SETTLE  QUESTION  OF  BIAS  VOLTAGES 
C . 

730  CALL  OVERLY( ISET3,NSETUP, 1) 

CALL  BIASVL 

C 

C INITIALISE  MIDAS  AND  SAMPLE  AS  REQUIRED 

C 

CALL  OVERLY( IFACT,NFACT,0) 

. CALL  BAKEIT(N,NTHCP,EEGINU,FINALU) 

C 
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OPTIONAL  RETURN  TO  BEGINNING 
IFCN.EQ.'B' )G0  TO  732 

IJE  NO'J  HAVE  ALL  THE  FACTORS.  CHANGES  AND  VECTORS. 

BEGIN  EXPERIMENT 

BEGIN=TiriER.(NTYriE)  ) 

ZERO  COUNTERS 

LOOP  = NUM3ER  OF  TIMES  THROUGH  DESIGN  MATRIX 
NPLAT  = ORDINAL  NUMSER  OF  PRESENT  PLATEAU 
IE  = ORDIl^AL  NUr-iBER  OF  PRESENT  ACTIVATION  ENERGY 

LOOP=0 
NPLAT=0 
IE=0 
NSTOP=0 
1=0 

LOO?  OVER  FACTOR  CHANGING  PROCEDURE  BUILT  INTO  DESIGN  MiATRIX 

300  CONTINUE 

NPLAT=NPLAT+1 
IOK=0 

IFCNST0P.EQ.5) I0K=1 

HAVE  FACTORS  ALREADY  BEEN  SET  AFTER  EXIT  FROM  PLATTO  (NST0P=2) 
OR  MUST  THEY  BE  RESET  (RATES  TOO  LOU.  N5TC?=4.  Nl=l) 

IF(NSTOP.EQ.4)GO  TO  13 
1F(NST0P.EQ.2)G0  TO  21 
11  1=1+1 

12  N1=0 

SET  FACTORS 

13  CALL  OV.'ERLYC  IFACT.NFACT.0) 

10  CALL  FACSETC I.N1,N2,N3.N4) 

FACTIM=TIMER(NTYME)-EEGIN 

MAKE  THE  LATER  PLATEAU 'THE  EARLIER  PLATEAU 

20  CONTINUE  ' 

1F(NST0P.EQ.2)G0  TO  47 ' 

21  DO  45  K=1.2 
TPLAT1(K)=TPLAT2CK) 

DO  46  J=1,NFACTS 
A01(J)=A02(J) 

SIGAOl (J) =SIGA02CJ) 

PST0FF(J)=0. 

PSTOFB(J)=0. 

PSTORF(J)=0. 

PSTORB(J)=0. 

A1(K,J)=A2(K.J) 

SIGAKK,  J)=SIGA2(K.J) 

FACTl (K. J)=FACT2CK.J) 

• SIGF1(K,J)=SIGF2(K,J) 

RATEKK.  J)=RATE2(K.J) 

SIGRHK,  J)=SIGR2(K,J) 

45  CONTINUE 

K0UNT1=K0UNT2 

C GO  TO  FACTOR  MEASUREMENT.  RETURN  ON  ERRORS.  OR  L'-EN  IT  IS  TIME 
C TO  MAKE  CHECKS  ON  PRECISION  OF  FACTOR  MEASUREMENTS ^ AND  DERIVED 
C QUANTITIES  SUCH  AS  ACTIVATION  ENERGY. 


A19 


CALL  OVEPLYC  IPLATT,r;PLATT,0) 

45  CALL  PLATT0CA02.SIGH02,A2.SIGA2,K0UNT2,TF.STF,TYnE.NERP0R,NPLAT 
8.,BEGINIJ) 

IFCNSTOP.EQ.  1 -AND.K0LiMT2.LE.3)G0  TO  2000 
IF(K0UIiT2.GT.3)G0  TO  2002  , 

NST0P=5  ' 

GO  TO  100 

C 

C SET  NEU  FACTOR  LEVELS  IF  PLATEAU  PEASUREnENT  COPPLETED 

C 

2002  IF(NST0P.ED.2)G0  TO  11 
47  1F(NERR0R.GT.0)G0  TO  45 

C 

C CHECK  PRECISION  LEVELS 

C 

CALL  OVERLY(1PRECS.NPRECS,0) 

• CALL  PRECISC  IFG0,L:?LAT,PRECFF,PRECF3,PRECRF.PRECRB) 
lF(NSTOP.h!E.0)GO  TO  43 
IF(IFGO.EQ.G)  GO  TO  49 
NIX=0 

DO  542  J=1,NFACT 

1F(PRECFF(J) .LT.?3T0FF(J))NIX=NIX+1 
PSTOFF(J) =PRECF(J) 

IF(PRECFBCJ) .LT.P3T0FB(J))NIX=NIX+1 
PST0FBCJ)=PRECF3(J) 

IF(PRECRFCJ) .LT.PST0RF(J))NIX=NIX+1 


PSTORF(J)=PRECRF(J) 

IF(PRECRBCJ) .LT.P3TQR3(J))NIX=NIX+1 
PST0RB(J)=PRECR3(J) 


542  CONTINUE 

IF(NIX.EQ.0 
. IFCNFILEB.GT 
IFCNPRINT.GE 


AND,N3TOP.LE.0)GO  TO  50 


E.'ilJR 

■l  1.0 


ITECNFILE3.543) 

TS':NPRINT,343) 


543  FORhATC/'  TERMINATE  T:^IS  SERIES  OF  MEASUREMENTS 
PRECISION  IS  DETERIORATING 


BECAUSE' 


NST0P=3 
GO  TO  49 

C 

C RESUME  PLATEAU  FACTOR  MEASUREMENT  IF  PRECISION  IS  INADEQUATE 

C 

50  CALL  OVERLY(IPLATT,N?LATT,0) 

CALL  PLATCO  ( AG2 , S I GP.02,  A2 . S I GA2,  K0UNT2,  TF . STF,  TYTE,  NERROR,  NPLAT 
8.,BEGINIJ) 

IF(NSTOP.EQ. l.AND.K0UNT2.LE.3)G0  TO  2000 
IF(K0UNT2.GT.3)G0  TO  2031 
NST0P=5 
GO  TO  100 

2001  IF(NST0?.EQ.2)G0  TO  11 
GO  TO  47 
49  CONTINUE 

C 

C JUMP  OVER  EXTRAPOLATIONS  IF  THIS  IS  FIRST  TIT-E  THROUGH 
C OR  IF  PREVIOUS  PLATEAU  L'AS  NOT  MEASURED  PROPERLY 

C 

IFCNPLAT.EQ.  l.OR.  lOK.EQ.  DGO  TO  200 

C 

C TIME  GAP  BETLEEN  PLATEAUS  AND  EXTRAPOLATION  TIMES  COMPUTED 
C IN  SUBROUTINE  PRECIS 

C 

C E>CTRAPOLATE  QUANTITIES 

C 

NACTE=-1  = 

DO  15  J=1,NFACTS 
K=KANDU(J) 

IF(K.EQ.2)NACTE=J 


A20 


noon 


L=IFDER(J) 

C 

C DO  FOR  PLATEAU  NPLAT-1 

C 

CALL  E^<TP0L(A01  (K)  ,A1  ( 1,K),SIGA01  (K),SIGAK1,K) 

&,NTERN3(K) 

&,Tir;EF(l)  .TIMEECl)  ,FACT1  (2,  K)  , S IGF  1 (2,  K) , FACTl  Cl , K) 
a. S IGF  1C  1,10  , PATE  1 (2. K) , S IGR ! C2. lO  , RATE  1 ( 1 , K) , S IGR 1 ( 1,K) 
a , PRECA , PRECA. > RECA, PRECA, L, M) 

15  CONTINUE 

C 

C IF  TEMPERATURE  UA3  MEASURED,  CALCULATE  ACTIVATION  ENERGY 

C 

150  1F(NACTE.LT.0)G0  TO  100 
1E=IE+1 

IFCIE.LE.NENGIGO  TO  101 

C 

C MOVE  E'S  DOUN  IN  LIST 

C 

DO  102  J=1,NENG1 

JJ=J+1 

E(J)=ECJJ) 

SIGECJ)=SIGECJJ) 

ETIMECJ)=ETIMECJJ) 

SAMPUTC  J)  =SAMi?UTCJJ) 

C(J)=CCJJ) 

DO  102  K=l,2 
TEMPCK. J)=TEM?CK. JJ) 

SIGTCK,J)=SIGTCK, JJ) 

ERATECK. J)=ERATECK,JJ) 

SIGERCIC.  J)  =SIQERCK,  JJ) 

EFACTCK, J) =EFACTCK, JJ) 

SIGFCK,J)=SIGFCK.JJ) 

NPTSCK,J)=NPTSCK,JJ) 

102  CONTINUE 
IE=IE-1 
101  CONTINUE 

ETIMECIE)=(TPLAT2Cl)-TFLATlC2))/2.  + TPLAT1C2) 

SAMPUTC IE) =C FACT  1 C2, 1 ) +FACT2 C 1 , l))/2. 

C<  IE)  = 1 G0 . >i:  C PEG  I NU-SAi-;?UT  C 1 E ) >/  C EEG I-NU-F I NALU) 

CALL  OVERLYC ISThT3.N3TATS,0) 

CALL  ACTIVECEC IE) ,SIGEC IE) , IE, TEMP C 1 , IE) ,TEM?C2, IE) 
a,SIGTCi;iE) ,SIGTC2. IE) ,FACT1 C2,2) ,FACT2C I .2) 
a,SIGFl C2,2) .SIGF2C 1.2) - VTEMP.RATEl C2, 1) ,RATE2C 1, 1) 
a.SIGRl C2, 1) .SIGR2C 1, 1) .VRATE.AT.NERRGR) 
IFCNFILEB.GT.6)URITECNFILE3.S32)ICCUNT1.KCUNT2 
IF  CNPR INT.  GE  .3)  UR  ITE  CNPR INT,  332)  KO'JNTl . KGUNT2 
882  FORMATC'  NUMBER  OF  POINTS  USED  TO  GET  POLYNCMIALS  LAS', 14,'  AND 
a, 14/) 

ERATECl, IE) =RATE1 C2, 1) 

ERATEC2, IE) =RATE2C 1,  1) 

SIGERCl, IE) =SIGR1 C2. 1) 

SIGERC2, IE) =SIGR2C 1,  1) 

EFACTCl, IE) =FACT1 C2, 1) 

EFACTC2. IE)=FACT2C1.  1) 

SIGFCl, IE)=SIGF1 C2, 1) 

SIGFC2, IE) =3IGF2C 1,  1) 

NPTSCl,  IE)=KGL1NT1 
NPTSC2.  IE)  =iC0UNT2 
IF(NERROR.EQ.O)GO  TO  85 
IE=IE-1 
GO  TO  100 

IF  E PRECISION  IS  INADEQUATE  CONTINUE,  PROVIDED  THERE  IS  ROOM 
IN  THE  ARRAYS  IN  PLATTO  AND  REGRES 
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85  IF(8B3((E(IE)/3IGE<:iE)))  .GT.PRECE)  GO  TO  80 

lF(NSTOP.NE.O)GO  TO  80 
1E=IE-I 
GO  TO  50 

83  CuMTINUE 
C 

C TEST  FDR  NEED  TO  CHfiNGE  TErPERPtTL'RE  E5CPU3E  RPTE  OF  L-EIGHT  LOSS 
C IS  EITHER  BELCi'J  MINI  MUM  OR  hEuVE  MAXIMUM  ALLOWED 
C CHECK  ONLY  LATEST  RATE  (FORWARD  IN  TIME) 

C 

200  RATES=ABS(RATE2(2, 1)) 

IFCRATES. GT. RATI  IIN.  AND. RATES. LT.RATMAX)GO  TO  881 
IF (RATES.lt. RATI  I IN) S IGN7= 1 . 

IF ( RATES . GT . RATMAX) S I GNT=- 1 . 

IF(N3T0P.NE.2) 1=1+1 

F ( 1 ) =F  ( 1 ) -DELF  ( 1 ) W0E3 IGN  ( 1 , I ) +S I GNTWUMP 
IF(NST0P.NE. 1)NST0P=4 
Nl  = l 

881  IFCE.LT.  l.OR.  lOM.EO.  DGO  TO  103 
IF  ((-:-R  INT.  GE  . 3)  MR  I TE  (N=R  INT.  39) 

89  FORr:AT(/'  E VALUES.  TIMES  AND  SAMPLE  WEIGHTS  SO  FAR:'/) 
lF(liPILEB.GT.6)URITE(NFILE5,39) 

DO  S4  J = l.  IE 

IF(NPRINT.GE.3)URITE(NPRINT.S2)  J.E(J).SIGE(J).ETIME(J).SAM?WJT(J) 
'&.C(J) 

82  FORMAT(I4,2F?.3.F1O.0.EI5.S.F7.2) 

1F(NPILEB.GT.6)WRITE(NFILE3.32)  J.E(J)  .SIGE(J)  .ETIME(J)  .£AM?WJT(J) 
&.C(J) 

84  CONTINUE 

1F(N-ILEE.LT.G)G0  TO  870 

WRITE  CNF ILEE.S2) IS . E C IE) . S IGE ( IE) . ETIME ( IE) . SAMPUT( IE) .C(IE) 
IJRITECNFILEE.SEO)  (TEM?(K.  IE).SIGT(i(,  IE).ERATE(K.  IE).3IGER(K,  IE) 
e.,EFAST(K,  IE)  ,SIGF(K.  IE) 

8.,N?TS(K,  IE)  .K=1.2) 

823  FORrLAT(20X.F8.2.F6.2.2E15.4/34X.2E15.6.  15) 

C 

c 

870  IFdE.LE.DGO  TO  133 

CALL  UTAVER(E.SIGE.  lE.UTEA'vE.SIGlJTE) 

C 

C PUT  EOF  EETUEEN  PLATEAU  DATA  IN  DATA  LOGGING  FILE 

C 

100  END  FILE  NFILEA 

C 

C END  OF  LOOP  THROUGH  VECTOR  OF  DESIGN  MATRIX 

C 

IFCNSTOP.EQ.DGO  TO  2000 
1033  IFd.LT.NF'vEOGO  TO  363 
1=0 

L00P=L00P+1 

C 

C END  OF  LOG?  THROUGH  WHOLE  DESIGN  MATRIX 

C 

GO  TO  303 
C 

C END  OF  JOB.  USUALLY  BECAUSE  OF  INSUFFICIENT  SAMPLE 

. 2330  CONTINUE  ^ 

lF(NPRi;iT.GE.3)l.JRITE(NPRINT,2010) 

• IF(NFILE3.GT.b)lJRITE>:i-!FILE3.2310) 

2310  FORMATC'  CONDITIONS  TOO  IMPRECISE.  STOP')  ' 

CALL  0'.E"WY(  ISETl.NSETUP.O) 

CALL  OVEFLY( ISET2.NSETUP. 1) 

CALL  SETPAR(0. , l.NERROR.NTHCP.TC) 

CALL  £ETFAR(760. .2.MERR0R.NTHCP.TC) 

• CALL  SETFAR(250.,3,NERROR,NTHC?.TC) 

CALL  SETPAR ( 0 . . 4, NERROR. NTHCP . TO 

c 

C END  OTHER  FILES 

C 

END  FILE  NFILEA 
END  FILE  NFILE3 
END  FILE  NPRINT 
END  FILE  NFILEE 
STOP 
END 
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SfiSSM 

ftCTIVE  PROG 
SPORT 
STRGT  IS 

C M<>l«{cHoK>K>K>K>K>Mo}oK>K5(otc>»o|ofc>Motc^ofo(o{OK>(oK>tDfo)ojotoK>MoMo<^^ 

c 

SUBROUTINE  flCTIVECE.SIGE. IE,TEM?1,TEMP2,SIGTI,SIGT2 

8.,  TREftD  1 , TRE0D2,  S IGTR 1 , S iGTR2,  VTEMP 

8.,  ROTE  1 , RATE2,  S ! GR 1 , S IGR2 , VPGTE.  AT,  HERRGR) 

C 

C ;fG^c>K>K2K>K>h>l<^o>toh>k>K>i<>^oK>f^>K>|of^>K'>lc;<>K>f^>i^>io|c>^c>TOic>^c>io^o^oK>fofo^;>^c*>K>fofc4^ 

C SUBROUTINE  TO  CALCULATE  ACTIVATION  ENERGY  FROM  TEflPERATURE  AND 
C RATE  DATA 

C 

C E = ACTIVATION  ENERGY 
C SIGE  = STANDARD  DEVIATION  OF  E 
C IE  = ORDINAL  NUMBER  OF  E IN  LIST  OP  E VALUES 
C TEliPl  = FIRST  TEMPERATURE  (IN  DEGREES  K) 

C TEMP2  = SECOND  TEMPERATURE 

C SIGTl,  SIGT2,  = STANDARD  DEVIATIONS  OF  TEMP!  AND  TEMP2 
C TREAD  = VALUES  OF  CORRESPONDING  THERMOCOUPLE  EDF'S  IN  MICROVOLTS 
C VTEMP  = CONTRIBUTION  OF  TEMP  TO  VARIANCE  OF  E 

C 

C RATEl,  RATE2,  SIGRl,  SIGR2  AND  VRATE  ARE  SIMILAR  VALUES  FOR  RATES 
C AT  = POLYNOMIAL  COEFFICIENTS  FOR  EMF  TO  DEGREE  K CONVERSION 
C NERRCR  = ERROR  INDICATOR 

C 

c 

C NEEDS  THE  FOLLOyiNG  COMMON  BLOCK  AND  FUNCTION: 

C COMMON  /lO/ 

C TDEGAB 

C 

c 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (1 060) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI ,DUMP( 123) ) , (NTTYO,DUM?( 124) ) 

8.,  (NPRINT,DUM?(125)  ) , CNFILEA,DUMP(12S)  ) , (NFILEB,DUM?(  127)  ) 
&,CNF1LED,DUMP(12S)) 

C 

C 

DIMENSION  TEMP(2),SIGT(2),TREAD(2),SIGTR(2),RATEC2),SIGR(2),AT(4) 

C 

c 

R=l. 987/1000. 

R2=R>!oi-'2 

NERROR=0 

TREAD(1)=TREAD1 

TP.EAD(2)=TR£AD2 

SIGTR(1)=SIGTR1 

SIGTR(2)=SIGTR2 

RATE(1)=RATE1 

RATE(2)=RATE2 
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SIGR(1)=SIGR1 
SIGR(2)=SIGR2 
DO  30  J=l,2 

C 

C GET  TEMPERfiTURE  IN  DEGREES  KELVIN,  TREAD  IS  IN  niCROV'OLTS 

C 

TEMP  ( J ) =TDEG.qB  ( TREAD  ( J ) . AT) 

T=TREAD(J)+SIGTR(J) 

S=TDEGAB(T,AT) 

SIGT(J)=S-TEMP(J) 

IF  (TEMPCJ) .LT. 1.)  GO  TO  40 
IF  (ABSCRATE(J)) .LT. l.E-06)  GO  TO  40 
30  CONTINUE 

C 

C GET  ACTIVATION  ENERGY 

C 

TD I FF  =TEMP ( 2 ) -TEMP ( 1 ) 

TDIFF=ABS(TDIFF) 

IF  (TDIFF.lt. l.E-01)  GO  TO  40 
T=RATE(2)/RATE(1) 

IF  (T.LT. 1.E-0E)  GO  TO  40 
IF  (T.GT. l.E+06)  GO  TO  40 
IF  (T.LT.l.)  T=l./T 
RTEMP=ALOG(T) 

ETEMP =TEMP  ( 2 ) >}<TEMP  < 1 ) /TD  I FF 
E=R>f'RTEMP>»^ETEMP 

- IF  (ABS(E) .GT.200. .OR.ABS(E) .LT. 1.)  GO  TO  40 
GO  TO  90 

C 

C DISCARD  THIS  POINT  FOR  VARIOUS  POSSIBLE  REASONS 

C 

40  CONTINUE 

IF(NPRINT.GE.3)URITE(NFRINT.50) IE 
IF(NFILEB.GT.6)LJRITEaiFILES,5G)  IE 
50  FORMAT ('  ACT.  ENERGY  NUMBER', 13,'  DISCARDED') 

NERR0R=8 

RETURN 

90  CONTINUE 

E2=E51ok2 

C 

C GET  ASSOCIATED  SIGMA 
C 1)  FROM  RATES 

C 

VRATE=C(SIGR(2)/RATE(2))>m:2+(SIGR(1)/RATE(1)  )>{<>k2)>i€ 
22/RTEMP>K>K2 

C 

C 2)  FROM  TEMPERATURES 

C 

VTEMP  = ( ( S I GT  ( 1.) /TEMP  ( 1 ) >K>i'-2 ) >K>t<2+ C S I GT  ( 2 ) /TEMP  C 2 ) >K>X2  ) 
2>KH:2)  >;<E2>i:ETEMP>H:-K2 

C 

C COMPUTE  TOTAL  SIGMA  ON  E 

C 

SIGE=SQRT(VRATE+VTEMP) 

C 

C OUTPUT  INITIAL  AND  CALCULATED  VALUES 
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C 

TEMP ( 1) =TEMP ( n -273 . 1 5 
TEMP(2)=TEriPC2)-273. 15 
IF(NPRINT.LT.3jG0  TO  200 
URITE(NPRINT.52) 

52  FORMPTC/'  ACTIVATION  ENERGY  FROM  =ACTIVE=' 

&/6X,'E' ,2X, 'SIG  E' ,2X, 'FACTOR  CR  RATE 
URITECNPRINT, 180)E,SIGE,  (TEMP ( J) , S IGT( J) , RATE C J) , S IGR C J) , J = 1 . 2) 
100  FORMAT  (2F7.3.F3.2,F6.2,2E13.4/14X-F8.2,F6.2,2E13.4) 

110  CONTINUE 


120  URITECHPRINT. 130) 

130  FORMAT  (/'  CONTRIBUTION  OF  RATE  AND  TEMPERATURE  TO  VARIANCE' 

2,' (=SIGE>K»:2)'/'  RATE  TEMP'/) 

URITE(NPRINT,  140)  VRATE,VTEMP 
140  FORMAT  (2E12.3) 

200  IF(NFILEB.LE.6)RETURN 
L>RITE(NFILEB,52) 

LRITECNFILEB, 100)E,SIGE, (TEMPCJ) ,SIGT(J) ,RATE( J) ,SIGR(J) , J=l,2) 
URITECNFILEB,  130) 

URITECNFILEB. 143) VRATE. VTEMP 

TEMP1=TEMP(1)  , . 

TEM?2=TEMP(2) 

SIGT1=SIGT(1) 

SIGT2=S!GT(2) 

^ RETURN 

END 
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$ASSM 
ftVSDN  PROG 
$F0RT 
$TRGT  16 


SUBROUTINE  fiVSDN(fiVE,SD,Q,NVflL) 


SUBROUTINE  TO  COLCULBTE  OVERAGE  AND  STANDARD  DEVIATION 
AVE  = AVERAGE  VALUE 
Q = INPUT  VALUES 

SD  = STANDARD  DEVIATION  OF  POPULATION  OF  Q 
NVAL  = NUMBER  OF  VALUES 

NEEDS  NO  COMMON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES 
RETURNS  SD  = l.E+06  IF  ONLY  ONE  VALUE  IS  AVAILABLE 


DIMENSION  Q(NVAL) 
CALCULATE  AVERAGE 


AVE=0. 

DO  10  1=1, NVAL 
10  AV£=AVE-i-Q(I) 

AVE=AVE/FLOAT(NVAL) 
IF(NVAL.GT.l)  GO  TO  50 
SD=1.0E+05 
RETURN 
50  SD=0. 

CALCULATE  STANDARD  DEVIATION 

DO  40  !=1,NVAL 
40  SD=SD+(AVE-Q(I))>K>»:2 

SD=SQRT(SD/(FLOAT(NVAL-l))) 

RETURN 

END 
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BAKE  IT  PROG 
$FORT 
$TRGT  16 

c 

SUBROUTINE  BAKEITCN, NTHCP, BEG INU, F INALU) 

C 

C :K^o{oMoMo!c>(c>K5K>}<>K>(<>!<>K>K>)oi<>k^K>IoioK>to{of»K^)<ot<5K>KM<>K>K>K>MoK>K>totoK>K^>ioK>K5MoK)K>K^^ 

c 

C SUBROUTINE  TO  PRESET  MIDAS  AND  PRECONDITION ' SAMPLE  BY  A BAKEOUT 

C 

C NEEDS  COMMON  BLOCKS  /lO/  AND  /MIDASR/ 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP (900) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYKDUMPC 123)  ) , (NTTYO.DUMPC  124) ) 

8c,  (NPR INT,  DUMP  ( 125)  ),  (NF  ILEA.  DUMP  (126)),  (NFILEB,  DUMP  (127)) 

8c,  (NFILED,DUMP(123)),  (NFILEE,DUMP(129)) 

C 

C COMMON  /MIDASR/ 

C 

INTEGER^2  OUT (20) ,REPLY(20) ,NUM( 16) , JUNK2( 18) 

C 

EQUIVALENCE  (OUT( 1 ) ,DUMP ( 1^0) ), (REPLY( 1 ), DUMP (160) ), (NUM(  1 ) 
e.,DUMP(180)  ) , (JUNK2(  1)  ,0UT(3) ) , (NF1LTR,DUMP(  ISB)  ) 

C 

DIMENSION  NTYME(3) 

EQUIVALENCE  (NTYME( 1) ,DUMP(885) ) 

C 

C INITIALISE  MIDAS  IF  REQUIRED  , 

C 

0UT(1)=37 

0UT(2)=X'23' 

DO  210  1=3,20 
210  OUT(I)='  ' 

455  URITE(NTTY0.439) 

430  FORMAT('  SET  INITIAL  CONDITIONS  ON  MIDAS,  Y OR  N?') 

READ (NTTYI. 440) NA 
440  FORMAT(Al) 

IF(NA.EQ.'N')GO  TO  460 
URITE(NTTY0,45I) 

451  FORMAT ('  GIVE  COMMAND,  36  CHARACTERS  MAXIMUM' 

&/'  SHARP  SIGN  UILL  BE  ADDED  BY  COMPUTER') 

READ (NTTYI. 420) JUNK2 
URITE(NTTY0.423)0UT 
420  F0RMAT(1SA2) 

423  F0RMAT(I6,2X. 19A2) 

CALL  TRAMID(0UT(2), 19,REPLY(2), 19,0.) 

• GO  TO  455 
460  CONTINUE 
C 

C SET  TIME 
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0UT(1)-12 
0UT(3)='  ir 
OUT(4)='0O' 

OUT(5)='0O' 

OUT(S)='03' 

0UT(7)='R  ' 

0UT(3)='  ' 

0UT(9)='  ' 

CALL  TRAMID(0UT(2), 19,REPLY(2), 19,0.) 
0UT(1)=38 


OPTIONAL  RETURN  TO  BEGINNING 
735  UR  I TEC NTT YO, 733) 

733  FORNATC'  GO  FORUARD  OR  BACK?  ENTER  =F=  OR  =B=') 

READ(NTTYI,440)N 

IF(N.EQ.'B')RETURN 

INPUT  INITIAL  AND  FINAL  UEIGHTS 

530  URITE(NTTYO,503) 

500  FORMATC/'  GIVE  INITIAL  AND  FINAL  UEIGHTS  IN  MICROVOLTS,  UITH  SIGN' 
&/'  ON  2 LINES  IN  F15.3  FORMAT.' 

8./'  INITIAL  UEIGHT  OF  0 UILL  CAUSE  PROGRAM  TO  USE  FIRST' 

8./'  UEIGHT  READING  IN  DATA  COLLECTION  AS  INITIAL  UEIGHT' 

8./'  -I.E.,  AFTER  BAKEOUT  OF  SAMPLE'/) 

READ  C NTTY 1 , 5 1 0 ) BEG  I NU 
READ(NTTYI,510)F!NALU 
510  FORMATCF15.0) 

URITECNTTYO,520)BEG1NLJ,FINALU 
520  FORMATC/'  INITIAL  AND  FINAL  UEIGHTS  ARE: ' ,2F15.0) 

URITECNTTYO, 128) 

READ (NTTYI, 443) NA 
1F(NA.NE.'Y')G0  TO  530 

IF(NFILEB.GT.6)URITECNFILEB,520)BEGINU.FINALU 

IF(NPRINT.GE.3)URITE(NPR1NT,523)EEGINU,FINALU 

INITIAL  CONDITIONING  OF  SAMPLE  VIA  BAKEOUT 

310  URITECNTTYO, 303) 

300  FORMATC/'  DO  YOU  UANT  PRECONDITIONING  OF  THE  SAMPLE?  Y OR  N?' ) 

RE ADC NTTY I, 440 )N 
IF(N.EQ.'N')  GO  TO  430 
IFCN.NE.'Y')GO  TO  310 
150  URITECNTTYO. 100) 

100  FORMATC/'  GIVE  BAKEOUT  TIME,  TEMPERATURE,  PRESSURE,  FLOU  N2,' 

8.,'  FLOU  02'/'  EACH  ON  A SEPARATE  LINE  IN  FORMAT  F10.0') 

READCNTTYI, 1 10)TIME, TEMP, PRESS, FN2,F02 
110  FORMATCF10.0) 

UR  1 TE  C N7TY0 , 1 43 ) T I ME , TEMP , PRESS , FN2 , F02 
140  FORMATC/'  BAKE  TIME  IN  SECONDS  IS'.F7.0 

8./'  BAKE  TEMPERATURE  IN  DEGREES  CELCIUS  IS',F7.0 
&/'  BAKE  PRESSURE  IN  MM  HG  IS',F7.0 
8./'  FLOU  OF  N2  IN  SCC/MIN  1S',F7.0 
8./'  FLOU  OF  02  IN  SCC/MIN  IS',F7.0/) 
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URITECNTTYO, 120) 

120  FORnflTC'  OK  OR  NOT,  Y OR  N?') 

REflD(mTYI,443)Nfi 
IF(Nft.NE.'Y')GO  TO  150 

IF(NFILEB.GT.6)L'R1TE(NF1LEB,  140)  TIME,  TEMP,  PRESS,  FN2,F02 
IF  (NPR INT.  GE . 3)  L'R  ITE  (HPR  INT,  143)  TIME, TEMP,  PRESS, FN2,  F02 
CALL  SETPARCTEMP. I ,HERRGR,HTHCP,TC) 

CALL  SETPAR(PRES2,2,NERR0R,HTHCP,TC) 

CALL  SETPAR ( FM2 , 3 , NERRCR , NTNCP , TO 
CALL  SETPAR (F02 , 4, MERRGR , NTHCP , TC ) 

UAIT  IN  LOOP  FOR  BAKE  TIME  TO  ELAPSE 

BTIME=TIMER(NTYME)+TIME 
200  TNOU=TIMERCMTYME) 

IFCTNOLJ.lt. BTIME)G0  TO  200 

REZERO  CLOCK 

400  0UTC1)=12 
0UTC3)='IT' 

OUT(4)='00' 

OUT(5)='00' 

OUT(6)='03' 

0UTC7)='R  ' 

0UT(8)='  ' 

OUT(S)='  ' 

CALL  TRAMIDC0UTC2), 19,REPLYC2), 19,0.) 

0UT(1)=38 

RETURN 

END 
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$ASsri 

BIPlSVL  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  BlftSVL 

C 

0 )|<5K>ic<oK>}c>I<^>K>KHo!oMc>t:>M<)i<>k>K>fc>k>KXoK>tc>t3io!r^|c+ofctoK>K*>»ofc>(i>fofoK>^'>foK>Wc*c5f^^ 

C SUBROUTINE  TO  DETERMINE  OR  READ  BIAS  VOLTAGES  =BIASV=  ON  ANALOG  SCANNER 

C 

C NEEDS  THE  FOLLOWING  COMMON  BLOCKS,  FUNCTIONS  AND  SUBROUTINES: 

C COMMON  /BIAS/ 

C COMMON  /FACTR/ 

C COMMON  /lO/ 

C COMMON  /MIDASR/ 

C RPAR 

C SETPAR 

C TRAMID 

C LIAYT 

C 

c 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (980) 

c ■ 

C COMMON  /BIAS/ 

C 

DIMENSION  BIASVC8),SIGB7(8) 

EQUIVALENCE  (8 1 ASV( 1 ) , DUMP ( 1 ) ) , (S IGBVC 1 ) , DUMP (9) ) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(8),1FUNCT(S),IFDER(8),INFUT(B).SCALE(S) 

£.,NRAHGE(8)  ,NREADS(3)  ,NTERMS(8)  ,CHTEST(8)  .PTIMEC8) 

8., PRECF(3)  ,PRECRC8),AT(4) 

EQUIVALENCE  (NTHCP, DUMP ( 17) ) , (KANDU( 1 ) , DUMP ( 18) ) 

&, ( IFUNCTC 1) ,DUMP (2S) ) , ( IFDERC 1 ) , DUMP (34) ) 

8.,  (INPUT(  1)  ,DUMP(42) ) , (SCALE ( 1) , DUMP (50) ) 

. t , (NRANGE ( 1 ) , DUMP ( 3S ) ) . ( NREADS ( 1 ) , DUMP ( 6b ) ) 

8.,  (NTERMS  ( 1 ) . DUMP  (74) ) , (CHTESTC  i ) , DLtP  (S2) ) 

8.,  (PTIME(  1)  ,DLT1P(90) ) , (PRECFC 1)  ,DUMP(98) ) 
e.,  (PRECR(1),DLIMP(  106)),  (NFACTS,D'JMP(  1 14) ) 

8c,  (NRATES,DUMP(  1 15) ) , (T!ML1M,DUMP(  1 16) ) 

8c,  (NBADS,DUMP(  1 17) ) , ( INTVAL, DUMP ( 1 13) ) 

8c,  (AT(1),DUMP(119) ),  (TSCALE,DUMP(130)) 

C 

C COMMON  /lO/ 

C 

EQUIVALENCE  (NTTYI , DUMP ( 123) ), (NTTYO, DUMP ( 124) ) 

8c,  (NPR!NT,DUMP(125) ) , (NF  ILEA,  DUMP  ( 126) ),  (NFILEB, DUMP ( 127)  ) 

8.,  (NFILED,DUrP(128) ) 

C 

C COMMON  /MIDASR/  (PART  OF) 

C 

I NTEGER>f<2  OUT ( 20 ) , REPL Y ( 20 ) , NUM (13),  JUNK2  (18) 
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EQUIVALENCE  (OUT(  1 ), DUMP (140)  ) , (REPLYC  1 ) ,DUIiP(  160)  ) 

8.,  (NUM(  1 ), BUMP  ( 180) ) , (JUNK2(  1 ) ,0UT(3)  ) , (NVDC, DUMP  ( 191 ) ) 


DIMENSION  MBIAS(8),BASEBIC8) 


300  IUAIT=0 
NGO=a 
J=0 

DETERMINE  UHAT  TO  DO 

DO  60  K=I,8 
MBIAS(K)=Q 

INIITIALISE  EACH  BIAS  VOLTAGE  TO  ZERO 

BIASV(K)=0. 

SIG3V(K)=l.E-09 
IF(K.EQ. 1)URITE(NTTY0,5) 

5 FORMAT ('  THIS  ROUTINE  IS  SET  UP  FOR:' 

&/'  WEIGHT  AS  "FACTOR"  1' 

8./'  TEMPERATURE  AS  FACTOR  2' 

8./'  PRESSURE  AS  FACTOR  3' 

8./'  -FLOW  CHANNEL  1 AS  FACTOR  4' 

8./'  FLOU  CHANNEL  2 AS  FACTOR  5' 

8./'  FACTORS  2 TO  5 ARE  PRESET  FOR  THE  BIAS  MEASUREMENTS'/ 

&/'  FOR  EACH  FACTOR,  IS  BIAS  VOLTAGE  TO  BE:' 

8./'  SET  = 0 (J  = l)' 

8./'  MEASURED  (J=2)' 

8./'  OR  READ  IN  (J=3)?' 

8./'  TERMINATE  INPUT  WITH  J=0') 

185  liRIT£(NTTYO,  15)K 

15  FORMATC'  GIVE  J FOR  FACTOR' , 13, ' IN  II  FORMAT') 

READ  (NTTYI,25)J 
25  FORMATC  ID 

IF(J.EQ.O)GO  TO  350 
IF(J.LT.0)GO  TO  105 
IF(J.GT.3)G0  TO  105 
GO  TO  (60, 20, 30), J 

SET  UP  ARRAY  AND  COUNTER  TO  CONTROL  MEASUREMENT  OF  BIAS  VOLTAGE 
WHEN  READ- IN  IS  COMPLETED 

20  CONTINUE 
MBIAS(K)=1 
IUAIT=IUAIT+1 
GO  TO  60 

READ  IN  BIAS  VOLTAGE 
30  URITE(NTTY0,35) 

35  FORMATC'  GIVE  BIAS  VOLTAGE  AND  SIGMA  IN  F7.3  FDRM>AT  <2  LINES)') 
READ(NTTYI.45)BIASVCK),SIGBV(K) 

45  F0RMATCF7.3) 


# 
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IF(SIGBVCK) .LT. I.E-09)SIGBV(K)-l.E-09 
60  CONTINUE 
KK=8 

GO  TO  360 
350  KK=K-1 

IF  (imiT.GT.0.ftND.NFILEB.GT.6)  URITE  (NFILEB,355) 
IF  (IUftIT.GT.O.HND.NPRINT.GE.3)  URITE  (NPRINT,355) 
355  FORMAT  (//'  BIAS  VOLTAGE  DETERMINATIONS  FOLLOU:'//) 

ARE  ANY  MEARSUREMENTS  TO  BE  MADE 

360  CONTINUE 

IF(IUAIT.EQ„0)GO  TO  120 

START  CLOCK 

0UT(1)=12 
0UT(3)=' IT' 

OUT(4)='O0' 

OUT(5)='00' 

OUT(6)='00' 

0UT(7)='R  ' 

0UT(8)='  ' 

CALL  TRAMID(0UT(2). 19, REPLY, 19,0.) 

0UT(1)=33 


MEASURE  BIAS  VOLTAGES 

DO  150  K=1,KK 

IF(M51A3(K) .EQ.0)GO  TO  150 

J=K-1 


GO  TO  (150,70,80,90, 100, 150,  150,  150), K 
SET  TEMP 

70  CALL  SETPAR(100., 1,NERR0R,NTHCP,TC) 

STORE  TARGET  VALUES  IN  ARRAY  BASES  I IN  MICROVOLTS 

BASEBI(K)=TC>i<10B3. 

GO  TO  150 

SET  PRESS  = NEED  A FLOU  RATE  FOR  THIS,  USE  N2 

80  CALL  SETPAR(4e0..J,NERROR,NTHCP,TC) 

BASEEI  (K)  =FLOAT(NVDC)>t:1000.'i=SCALE(K) 

KJ=:<+i 

J=KJ-1 

CALL  SETPARC300., J,NERROR.NTHCP,TC) 

BASES  I (KJ)  =FLOAT(NVDC)  >Kia00 . ^SCALE  (KJ) 

GO  TO  150 

SET  FLOUS 
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90  CALL  SETPflR(300.,J.MERROR.NTV:CP.TC) 

BASES  I (K)  =FLOATCHVDC)  >KI033 . ^SCALE  (K) 

GO  TO  150 

100  CALL  SETPARC100.,J,NERROR,NTHCP,TC) 

BASEBI  (K)  =FLOAT(NVDC)-'i^e0O.>t:SCALE(K) 

150  CONTINUE 
NTIME=0 
290  NERR=0 

DETERMINE  BIAS  VOLTAGES 
DO  160  K=1,KK 

IF(M3IAS(K) .EQ.0)GO  TO  160  . ‘ 

UAIT  TILL  READING  IS  STEADY 

CALL  UP.YT(CHTEST(K)  ,PTIME(K) , INPUT(K)  ,NRANGE(K)  ,SCALE(K)  ,TIMEST 
&,CH ISQR, 0 . , NREADS (K) , NTERMSCK) , NERROR) 

IF(NEr<RCR.EQ.0)GO  TO  160 

IF(NPRINT.GE.3)LJRITE(NPRIHT,  170)  INPUTCK)  , CHTEST(K) 
8.,CHISQR,TIMEST,NTIME,MERR0R 
170  FORMATC'  INPUT',  12,'  HAS  UNSTEADY  READING’ 

&/'  CHTEST  =',F7.2,'  CHI  READINGS  =',F7.2,'  TIME  =',F7.2 
&/'  PASS  =',I3,'  NERROR  =',I3,' 

IF(HFILEB.GT.6)IJRITECNFILEB,  170)  INPUT(K)  , CtTfESTCK)  , CH ISQR, TIMEST 
&, NT I ME, NERROR 
160  NERR=MERR+NERROR 
NTIME=NTIME-;-i 

IF(HERR.NE.0.AND.NTIME.LE.  DGO  TO  290 
IF(NERR.NE.0.AND.NTIME.GT. 1)NG0=1 
200  DO  253  K=1,KK 

IFCMSIAS(K) .EQ.0)GO  TO  250 
BIASV(K)=0. 

SIGBV(K) =1.E-0S 

CALL  RPAR(BIASVCK),SIGBVi:K)  , INPUT(K)  ,NRANGECK),SCALE(K) 

&, NREADS (K)  ,ei.,NERRCR) 

IF ( NERROR. EQ.B) GO  TO  250 

IF(NPRINT.GE.3)LRITE(NPRINT, 133) I NPUT ( K) , NERROR 
180  FORMATf'  DVM  ERROR  FOR  INPUT'.  12,'  NERROR  ='I2,'  ) 

IF(NFILEB.GT.6)URITE(NFILEB, 180) INPUT(K) , NERROR 
GO  TO  300 
250  CONTINUE 

CORRECT  FOR  FACTOR  LEVELS 
DO  260  k=i,k:< 

260  IF(M3IA3(K) .NE.0)BIASV(K)=BIRSV(K)-BASEBI(K) 

OUTPUT  BIAS  VOLTAGES  AND  SIGMAS 

120  IF(NPRINT.GE.3)IJRITE(NPRINT,50)  Cl , B IASV(  I ) , S IGBVC  I ) , 1 = 1, KK) 

50  FORMAT (/'  BIAS  VOLTAGES  AND  SIGMAS  FOR  FACTOR  INPUTS' 

8./"  FACTOR  VOLTAGE  SIGMA' 

8./(I7,2E15.7)) 

1F(NFILEB.GT.6)LJRITE(NFILEB,50)  (I,BIASV(I),SIGBV(I),  I = 1,KK) 

CYCLE  ROUND  AGAIN  UNDER  OPERATOR  CONTROL  BECAUSE  OF  INSTABILITIES 

IFCNGO.EQ.  DGO  TO  300 

RETURN 

END 
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$ASSM 
CHI6Q  PROG 
$FORT 
$TRGT  16 

SUBROUTINE  CHISQ(P,SP,XSQ,N) 

)^o^o^c■^c^!oK^<^^nloH^k>K>^<>K>^>k>!;>lof'>ofoK^K>^oJc>fc>K>K>r^K>f^.i!oK^K>KHo^>K5K>K^K^^o^oK>f^^ 

SUBROUTINE  TO  CP.LCULflTE  REDUCED  CHI  SQUPRE  FOR  N INPUT  VALUES. 
P - INPUT  VRLUES 

SP  = STANDARD  DEVIATIONS  OF  P VALUES 
XSQ  = CHI-SQUARE  VALUE  FDR  P AND  SP  ARRAYS 
N = HUMBER  OF  P VALUES 

NEEDS  NO  COMMCN  BLOCKS.  FUNCTIONS  OR  SUBROUTINES 

DIMENSION  P(N),SP(N) 
ftVE=0. 


CALCULATE  A'>v€RAGE 

DO  10  1=1. N 
10  AVE=A'v'E+P(I) 

AV£=AVE/FLOAT(N) 

XSQ=0. 

IF (N.LE. 1) RETURN 
CALCULATE  CHI  SQUARE 
DO  20  1=1, N 

20  XSQ=XSQ+((AVE-P(n)/SP(D)>K>K2 
XSQ=X3Q/FL0AT(N-n 
RETURN 
END 
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DEKODE  PROG 
SPORT 
STRGT  16 

C Xo|oK)<oi<>lo(<>K>KMc>KoK>K>totoK:K>!oK*>toK>fotoK5Motc4oK>MoMoMOMo|oMo(oMofo(otoMc>^^ 

c 

SUBROUTINE  DEKODE(J,F,L,NSIDE) 

C 

C HoMoK^>!o■o}c>K>fofolci;;K>k>^^:>K>l:>H3K>K>K^ic^r>(c^o^oK)^oto!:>^c>|oIoK>K>l<>!^^loK>!oK>K>^o^oK>^o(ciof:^c^^^ 

C SUBROUTINE  TO  DECODE  RRRAY  JCL)  INTO  =F=,  I.E.,  ONE  COMPUTER  LORD 
C HAS  TO  IJORK  IN  FLOATING  POINT  BECAUSE  AN  INTEGER  MAY  OVERFLOU 
C L IS  THE  NUMBER  OF  BYTES  TO  DECODE 

C NSIDE  = 0 START  AT  LHS  OF  FIRST  UORD  (EACH  UORD  CONTAINS  2 BYTES) 

C NSIDE  = 1 START  AT  RHS  OF  FIRST  UORD 

C 

c 

INTEGER>K2  J(L),K,KK 
C 

C TABLE  OF  DECIMAL  DIGITS: 

C 

DIMENSION  TABLE (10) 

DATA  TABLE/0.. l.,2.,3.,4.,5.,6.,7.,8.,9./ 

C 

N=0 

NEG=0 

F=0. 

C 

C LOOP  OVER  CHARACTER  TRANSLATION,  20  CHARACTERS  MAXIMUM 

C 

DO  10  1=1,20 
KK=J(I) 

C 

C EXAMINE  EACH  B'tTE  IN  UORD  IN  TURN 
C • 

20  DO  11  MM=1,2 
M=MM-1 
C 

C NSIDE  = 1 MEANS  BEGIN  UITH  LESS  SIGNIFICANT  BYTE  FROM  FIRST  UORD 

C 

IFd.NE.  DGO  TO  -25 
IF(NSIDE.EQ.0)GO  TO  25 
MM=2 
M=1 

25  CONTINUE 
K=KK/256 

IFCM.EQ.  1)K=KK-K>H256 

C 

C CHECK  FOR  NEGATIVE  NUmER 

C 

30  IF(K.EQ.45)NEG=1 
C 

C JUMP  OUT  IF  CHARACTER  IS  BLANK,  + OR  - ’ 

C 

IF(K.EQ.43.0R.K.EQ.45.0R.K.EQ.32)G0  TO  60 
K=K-47 

1F(K.LE.0.OR.K.GT. 10)GO  TO  11 

C 

C TACK  EACH  DIGIT  ONTO  NUMBER,  COUNT  NUMBER  OF  DIGITS 

C 

F=F?f.'10.+TABLE(K) 

69  N=N+1 

IF(N.EQ.L)GO  TO  50 
11  CONTINUE 
10  CONTINUE 

C 

C APPLY  ANY  MINUS  SIGN 

C 

50  IFCNEG.EQ. 1)F=-F 
RETURN 
END 
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SASsri 

DESYNE  PROG 
SPORT 
STRGT  16 

C 5Mo|o|otc^oioloK>fo|oMo|oM»McHotofOMc^oMotoMo(oK>!o»fc>to|otoK5Wc»oMoK^^ 

c 

SUBROUTINE  DESYNE 

C 

c )K5K5|oK>k>to!<)t;>K>K>K3K>K>MoK>!;>foM:>(oMoMoK>McK>toK>K-5toK>ioMo|c4o|otok>K>|oto^^ 

c 

C SUBROUTINE  TO  SET  UP  DESIGN  MATRIX  UHICH  GOVERNS  COURSE  OF  EXPERIMENT 

C 

C NEEDS  COMMON  /lO/ 

C COMMON  /MIDflSR/ 

C COMMON  /PLAT/ 

C AND  COMMON  /STEPS/ 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP (900) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI , DUM?( 123) ) , (NTTYO; DUMP(124) ) 

8.,  (N?RINT>DUM?(125)),  (NFILEA,DUMP(126)),  (NFILEB,DUMP(127)) 

8c,  (NF1LED,DUMP(12S)),  (NFILEE,DUM?(129)) 

C 

C COMMON  /MIDASR/  (PART  OF) 

C 

EQUIVALENCE  (NFILTR,DUMP( 190) ) 

C 

C COMMON  /PLAT/ 

C 

DIMENSION  RCHK8) 

EQUIVALENCE  (LPLAT,DUMP(510) ) , (NELAPS,DUMP(51 1) ) 

8c,  (NFIRST.DUMP(512)),  (NCHI.DUMP(513)),  (NST0P,DUM?(514)) 

8c,  (START,  DUMP  (515) ),  (RCHKl),  DUMP  (516)) 

8c,  (N0THER,EUMP(524)),  (KST0RE,DU!'P(525)) 

&, (ENDSIG,DUMP(526)) 

C 

C COMMON  /STEPS/ 

C 

DIMENSION  F(4),T0PF(4),DESIGN(4, 16),FDER(4) 

EQUIVALENCE  (F ( 1 ), DUMP (S60) ), (TOPF ( 1 ), DUMP (804) ) 

6.,  (DESIGNd,  1),DUMP(888)),  (NF\/EC,DUMP(872)),  (FDER(  1)  ,DUMP(873)  ) 

C 

C INPUT  FACTOR  LEVELS,  STEP  SIZES  AND  DESIGN  MATRIX 

C 

J=0 

URITE(NTTYO,301) 

301  FORMAT('  READY  TO  SET  UP  FACTOR  LEVELS  AND  CHANGES' 

8./'  ONE  PER  LINE') 

305  IJRITE(NTTYO,330) 

330  FORMAT('  GIVE  INITIAL  T AND  MAXIMUM  T IN  DEGREES  CELCIUS' 

& /'  F7.2  FORMAT,  ONE  PER  LINE') 

READ(NTTYI,310)F(D  ,T0PF(1) 

310  F0RMAT(F7.2) 

IF(J.NE.0)GO  TO  415 
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306  URITE(NTTYO,320) 

320  FORmTC'  GIVE  INITIRL  P HND  MPXimn  P IN  MM  HG  IN  F7.2  FORIDT' 
8.  /"  mXIMUM  VPLUE  OF  0 PUTOMftTICftLLY  CHPlNGED  TO  200  MM  HG') 
REI=1D(NTTYI,310)FC2)  ,T0PF(2) 

IF  (T0PF(2) .LE. 0.001)  TOPF(2)=20B. 

IF(J.HE.0)GO  T0'415 

307  URITE(NTTV0,335) 

335  FORM0T('  GIVE  INITIAL  N2  FLOW  AND  MAXIMUM  FLOW  IN  SCC/MIN' 

8c  /'  MAXIMUM  VALUE  OF  0 AUTOMATICALLY  CHANGED  TO  200  SCC/MIN') 
READ(HTTYI,310)F(3).TOPF(3) 

IF  (T0PFC3) .LE. 0.601)  TOPF(3)=200. 

IF(J.NE.0)GO  TO  415 

303  URITE(NTTYO,340) 

340  FORMATC'  GIVE  INITIAL  02  FLOU  AND  MAXIMUM  IN  SCC/MIN' 

8.  /'  MAXIMUM  VALUE  OF  0 AUTOMATICALLY  CHANGED  TO  203  SCC/MIN') 
READ(NTTYI,313)F(4).TGPF(4) 

IF  <T0PFi:4)  .LT. 0.031)  TOPF(4)=203. 

415  URITE(NTTY0.345)  (I.FCD.TOPFCI),  1 = 1,4) 

345  FORMATC'  FACTOR  LEVELS  AND  MAXIMA  FOLLOU: ' 

8.  /'  NO.  INITIAL  MAXIMUM' 

8,  /(I4,2F10.2)) 

345  FORMAT(I4,2F710.3) 

435  URITE(NTTY0,420) 

420  FORMATC'  GIVE  FACTOR  NUMBER  (1  TO  4)  FOR  FURTHER  CHANGES' 

8c/'  0 = NO  CHANGES') 

READ(NTTYI,75)J 

75  FORMAT(Il) 

IF(J.LE.0)GO  TO  368 
IF(J.GT.4)G0  TO  405 
GO  TO  (305,306,307,308) ,J 

READ  IN  DESIGN  MATRIX 

368  LIRITE(NTTYO,350) 

350  FORMAT ('  READY  TO  BUILD  DESIGN  MATRIX' 

8c/'  I.E.,  VECTORS  FOR  CHANGES  IN  FACTOR  LEVELS' 

8./'  MAXIMUM  CF  15  VECTORS.  ONE  PER  LINE' 

8c/'  GIVE  LINE  NUMBERS  THEN  4 COMPONENTS' 

8c/'  F0RMAT(I2/(F6.2))' 

8./'  END  UITH  LINE  NUMBER  = 8') 

390  READ(MTTYI,360) I 

360  F0RMAT(I2) 

IF(I.EQ.0)GO  TO  440 
READ(MTTYI,361) (DESIGNCJ, I),J=1,4) 

361  FORMAT (F6. 2) 

URITE(NTTY0,3G2) I, (DESIGN( J, I ) , J=l,4) 

362  FORMAT(I3,4F10.3) 

GO  TO  390 

440  CONTINUE 

URITE(NTTY0,365) 

365  FORMAT ('  INPUT  NUMBER  OF' VECTORS  IN  12  FORMAT') 

READ (NTTYI, 360) NFVEC 
URITE(NTTY0,363) 

363  FORMATC'  DESIGN  MATRIX  FCLLGUS') 

URITE(NTTVQ.3G2) (I, (DESIGN(J, I ) , J= 1 , 4) , I = 1 . NFVEC) 

UR  ITE(NTTYO, 366) 
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366  FORMAK'  CHANCE  FOR  FURTHER  CHANGES?  0»NO>  1*YES,  IN  12  FORmT' ) 
READ(NTTYI,360) J 
IF(J.GT.0)GO  TO  368 
C 

C STEADINESS  CHECKS  TO  EE  MADE  DURING  DATA  COLLECTION? 

C 

URITE(NTTYO,370) 

370  FORMATC'  STEADINESS  CHECKS  TO  BE  MADE  DURING  DATA  COLLECTION?' 
8./'  GIVE  0 FOR  NO,  1 FOR  YES.  12  FORMAT') 

READ(NTTYI,360)NCHI 

C 

C FILTER  INPUT  TO  DVM? 

C 

URITE(NTTY0.371) 

371  FORMAT('  FILTER  INPUTS  TO  DVM?  0=NO.1=YES  (YES  TAKES' 

8./'  0.5  SEC/READ)  GT/E  IN  12  FORMAT') 

READ(NTTYI.360)NF!LTR 

IF(NFILTR.GT.0)NFILTR=! 

C 

C READ  OTHER  EXPERIMENTS  ALSO? 

C 

URITE(NTTY0.372) 

372  FORMATC'  READ  OTHER  EXPERIMENTS  AT  SAME  TIME?  0=NO,1=YES.' 

8./.'  GIVE  IN  12  FORMAT') 

READ (NTTYI , 360) NOTHER 
IF (NPRINT.lt. 3) GO  TO  455 
URITE(NPRINT.345) (I,F( I).TOPF(I). 1=1,4) 

URITE(NFRINT,3S3) 

URITE(K?RINT,3b2) ( I , (DES IGN ( J, I ) , J=1 ,4) , 1 = 1 ,NFVEC) 
URITE(NPRINT,374)NCHI 

374  FORMAT('  STEADINESS  CHECK  ='.I2,'  UHERE  0=NO, 1 =YES' ) 

UR  I TE ( NPR I NT, 375 ) NF I LTR 

375  FORMAT('  INPUT  FILTER  TO  DVM  =',I2,'  UHERE  0=NO,1=YES') 

UR  I TE (NPR I NT. 376) NOTHER 

376  FORMAT('  READ  OTHER  EXPTS  =',I2,'  UHERE  0=NO.1=YES') 

455  CONTINUE 

460  1F(NFILEB.LE.6)G0  TO  610 

• URITE(NFILEB,345) ( I , F ( I ) , TOPF ( I ) , I =1 , 4) 

URITE(NFILEB,363) 

URITE(NFILE3,362) ( I , (DESIGN( J, I) , J = l,4) , I = 1,NFVEC) 

URITE(NF!LEB,374)NCHI 

URITE(NFILEB.375)NFILTR 

UfRITE(NFILEB,  376)  NOTHER  ' 

610  CONTINUE 
RETURN 
END 
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ENKODE  PROG 
SPORT 
STRGT  16 

C >M»|oiok>K>K>K>foK^oMoK>>oMoK>K5f:>K>WoK>Ms)o?otc>MoicMcioH>Mofc)jcloMc^cHc<oMo!o^ 

c 

SUBROUTINE  EMKOPECNRRRftY.NVTlR) 

C 

C SUBROUTINE  TO  PUT  INTEGER  =NVP.R=  INTO  =NPRRfiY=  IN  HOLLERITH  FORH 
C PRODUCES  4 DIGITS,  2 TO  fi  UCRD  IN  =NPRRPY= 

C 

C NEEDS  COMMON  /MIDASR/ 

C 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

C COMMON  /MIDASR/ 

C 

INTEGER>!;2  NUMC10) 

EQUIVALENCE  (HUM( 1) ,DUMP( 180) ) 

C 

C 

DIMENSION  NARRAYC2) 

C 

C 

K1«=NVAR/1000 

K2*=(NVAR-K1>H1000)/109 

K3  = (NVAR-Kl>f<109g-K2>K100)/10 

K4=NVHR-K1h:10O0-:<2'K1Q0-K3>k19 

NARRAY(l)=NUM(Kl  + l)':<25b+NUM(K2+l) 

NARRAY(2)=NUN(l<3+l)>t<256+NUM(K4+l) 

RETURN 

END 
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EXTPOL  PROG 
$FORT 
$TRGT  16 

C )MotoK>K>K>K>K5K>K>Mok>KMO»c><>4oMoMofoMoMotoK>!<>Mof:>K>MoMoK5K5K3»C5(oK5totoM^^ 

c 

SUBROUTINE  EXTPOL (flTO, AT. S IGfiTO, S IGAT 
8.,NTERMS 

&,  TIMEF,TIHEB,FACTF.SIGFF. FACTS, SIGFB 

&. RATEF, S IGRF, RATEB. S IGR8,  PRECFF, PRECFB, PRECRF, PRECRB. L. M) 

c 

C SUBROUTINE  TO  USE  POLYNOMIAL  OF  P=ATO+AT(  1)>kTIME>k>»:M(  l)+AT(2)^TIME>tott1(2) 
C TO  EXTRAPOLATE  TO  VALUES  OF  BOTH  P AND  DP/DT  TO  TIMES  TIMEF  AND  TIMES 

C 

C ATO  = DEFINED  ABOVE 

C SIGATO  = STANDARD  DEVIATION  OF  ATO 
C AT  = DEFINED  ABOVE 

C SIGAT  = STANDARD  DEVIATION  OF  AT 

C RCHI  = CHI-SQUARE  VALUE  FOR  FIT 

C TIMEF  = TIME  TO  EXTRAPOLATE  TO  IN  FGRUARD  DIRECTION 

C TIMES  = TIME  TO  EXTRAPOLATE  TO  IN  BACKWARD  DIRECTION 

C FACTF  = VALUE  OF  FACTOR  AS  EXTRAPOLATED  FORWARD 

C FACTB  = VALUE  OF  FACTOR  AS  EXTRAPOLATED  BACKWARD 

C RATEF  AND  RATEB  = CORESPONDING  VALUES  FOR  FIRST  DERIVATIVES 
C SIGFF,  SIGFB,  SIGRF,  SIGRS  = STANDARD  DEVIATIONS  FOR  ABOVE 
C PRECFF,PRECFB,PRECRF,FRECRB  = PRECISION  OF  EXTRAPOLATED 

C RATES  AND  FACTOR  LEVELS 

C 

C NEDDS  NO  COMMON  BLOCKS  OR  SUBROUTINES 

C 

DIMENSION  AT(NTERM3),SIGAT(NTERMS),M(NTERMS) 

C 

C EXTRAPOLATE  FACTOR  LEVEL 

C 

FACTF =ATO 

FACTB =ATO 

SIGFF=SIGAT0>!■•^‘<2 

SIGFB=SIGAT0x:>k2 

IF(NTERM3.LE.0)GO  TO  50 

DO  40  I=1,NTERMS 

FACTF  =FACTF+AT ( I) >i<T I MEF>ioi<M ( I) 

FACTB  =F ACTE+AT  <;  I ) >^<T  I MEBxoi'M  ( I ) 

S I GFF =5 1 GFF+  ( 3 1 GAT  ( I ) >"T  I MEF>KXcM  Cl ) ) >toK2 
S I GFB  =S I GF B+ ( S I G AT C I) >KT I MEB^-M ( I ) ) >toK2 
40  CONTINUE 
50  CONTINUE 

SIGFF=SQRTCSIGFF) 

SIGFB=SCRT(SIGFB) 

C 

C EXTRAPOLATE  DERIVATIVE 
C I.E.,  IF  W=A+3WC>KT>r:>i^2, 

C THEN  DU/DT=B+2>»'-C.'t«T 

C 

RATEF=0. 

RATEB=0. 
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non 


SIGRF=l.E-04 

SIGRB=l.E-0^ 

IF(L.EQ.0)GO  TO  120 
IF(NTERMS.LE.0)GO  TO  110 
DO  100  I = l,NTERiiS 
J-MCD-l 

RfiTEF=RATEF+FLOfiT(  J+1)  ><<flT(  n>KTiriEF>McJ 
RflTEB=RATEP+FLOAT(  J+n  >KPT(  I ) »:TIME3'K>fcJ 
S I GRF =3 1 GRF+ ( FLOAT ( J+ 1 ) :kS I G AT ( I) >KT I MEF>KM<J ) >tofc2 
S I GRB  =S I GRB+  ( FLOAT C J+ 1 ) >i<S I G AT ( I) >i<T I nEB>i<>i<J ) >K>K2 
100  CONTINUE 
C 

SIGRF=SIGRF-l.E-04 
SIGRB=SIGR3-l.E-04 
IF(SIGRF.LT.0. 1E-04)SIGRF=O. lE-04 
IF(SIGRB.LT.0. lE-04)SIGR3=a. IE-04 

C 

110  SIGRF=SORT(SIGRF) 

SIGRB=SQRT(SIGRB) 

EVALUATE  PRECISION 

120  PRECFF=A3S(FACTF/SIGFF) 

PRECFB=ABS (FACTS/S IGFB) 
PRECRF=ABS(RATEF/SIGRF) 
PRECRB-ABS(RATEB/SIGRB) 

RETURN 
END 
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$ASSM 

FACFUN  PROG 
SFORT 
$TRGT  IG 

SUBROUTINE  FACFUN  (IJ.  S,  I ) 

SUBROUTINE  TO  CALCULATE  DESIRED  FUNCTION  OF  FACTOR. 
NEEDS  NO  COmON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES. 

NO  CHANGE  IN  INPUT 

IF(I.EQ.0)RETURN 

GO  TO<10,20,30), I 

FUNCTION  IS  LOG(U) 

10  S=ABS(S/U) 

U=ALOG(U) 

RETURN 

FUNCTION  IS  U>5cK2 

20  S=ABS(S»=2.>i<U) 

U=U*>i<2 
RETURN 

FUNCTION  IS  1/U 

30  S=AB3(S/(U>M.-2)) 

U= 1 . /U 
RETURN 
END 
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$ftssn 

FACSET  PROG 
SFORT 
STRGT  16 

C *){<>MoioK>K5McK>M«>foK5K5Mofci|oMo|oioMoK3Mo»o|oMo|o«oM<>Mo<oK3K^^ 

c 

SUBROUTINE  FftCSEK  I , N 1 , N2,  N3,  N4.  NSTOP) 

C 

C SUBROUTINE  TO  SET  FACTOR  LEVELS  FROM  INITIAL  VALUES,  INTERVALS 
C AND  VECTORS 

C 

C NEEDS  THE  FOLLOWING  COMMON  BLOCKS  AND  SUBROUTINES: 

C COMMON  /FACTR/ 

C COMMON  /lO/ 

C COMMON  /STEPS/ 

C SETPAR 

C 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP (900) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(8) . IFUNCT(8) , IFDERC8) , INPUTC8) ,SCALE(8) 

8.,  NRAMGE  ( 8 ) , NREADS  ( S ) , NTERMS  C 8 ) , CHTEST  ( 8 ) , PT I ME  ( 8 ) 

8., PRECF(S),PRECR(8),AT(4) 

EQUIVALENCE  (NTHCP,DUMP( 17) ), (KANDUC 1) ,DUMPC 18) ) 

&, ( I FUNCT ( 1 ) , DUMP (26 ) ) , ( I FDER ( 1 ) , DUMP (34) ) 

8.,  ( IN?UT(  1 ) , DUMP (42) ) , (SCALE(  1 ), DUMP (50)  ) 

8.,  (NRANGE(1),DUMP(53)),  (NREADS(1),DUMP(66)) 

8.,  (NTERMS  ( 1 ) , DUMP (74) ) , (CHTEST(  1 ) , DUMP  (82)  ) 

8.,  (PTIME(1),DUMP(30)),  (PRECF(1),DUMP(98)) 

(PRECR( 1) ,DUMP( 106) ) , (NFACTS,DUMP( 1 14) ) 

8.,  (NRATE3,DUMP(115)),  (TIMLIM,DUMP(116)) 

(MEADS, DUMP ( 1 17) ) , ( INTVAL,DUMP (118)) 

8.,  (AT(  1 ) , DUMP  (119)),  (TSCALE,DUMP  ( l'30)') 

C 

C COMMON  /lO/ 

C 

EQUIVALENCE  (NTTYI, DUMP ( 123) ), CNTTYO,DUNP( 124) ) 

■ 8.,  (NPRItlT,DUMP(  125) ) , (NFILEA,DUMP(  126) ) , (NF ILEB, DUMP ( 127)  ) 

8.,  (NFILED,DUMP(123)),  (NFILEE,DUMP(129)) 

C 

C COMMON  /STEPS/ 

C 

DIMENSION  F(4),TOPF(4),DESIGN(4, 16),FDER(4) 

EQUIVALENCE  (F ( 1 ) , DUMP (803) ) , (TOPF ( 1 ) , DUMP (834) ) 

£<,  (DESIGNd,  1),DUMP(308)),  (NFVEC,DUNP(872))',  (FDER(  1)  ,DUMP(873)  ) 

C 

c 

NTIME=0 

IF(N1.NE.0)GO  TO  15 
DO  18  J=l,4 

F(J)=F(J)  + DESIGN(J,I) 

IF  (F(J) .GT.TOPF(J))  NSTOP  » 6 


e 
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SftSSM 

BAKE  IT  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  BAKE IT(N. NTHCP, BEG INU, F INALU) 

C 

c 

C SUBROUTINE  TO  PRESET  MICAS  AND  PRECONDITION  SAMPLE  BY  A BAKEOUT 
C 

C NEEDS  COMMON  BLOCKS  /lO/  AND  /MIDASR/ 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP(S00) 

C 

C COMMON  /lO/ 

C 

EQUIVALENCE  (NTTYI ,DUM?(123) ) , (NTTYO,DUM?( 124) ) 

&, (NPRINT,DU^F(125)), (NF1LEA.DUMPC126)), (NF1LEB,DUMP(127)) 

&,  (NFILED,DUr'P(123)),  (NFILEE,DUrP(129)) 

C 

C COMMON  /MIDASR/ 

C 

INTEGER>^2  OUTC20)  ,REPLY(20)  ,NUM(  10)  , JUNK2n8) 

C 

EQUIVALENCE  (OUT(  1 ) , DUMP C 1^3)  ) , (REPLY(  1 ) , DUr-P (160)),  (NUM(  1 ) 
DUMP ( 180) ) , (JUNK2C 1) ,0UT(3) ) , (NFILTR.DUMPC ISB) ) 

C 

DIMENSION  NTYMEC3) 

EQU I VALENCE  ( NTYME  ( 1 ) , DUMP (835) ) 

C 

C INITIALISE  MIDAS  IF  REQUIRED 
C 

0UT(1)=37 

0UT(2)=X'23' 

DO  210  1=3,20 
210  OUT(I)='  ' 

455  URITE(NTTYO.430) 

430  FORMAT('  SET  INITIAL  CONDITIONS  ON  MIDAS,  Y OR  N?') 

READ(NTTYI,440)NA 
440  FORmT(Al) 

IF(NA.EQ.'N')GO  TO  460 
URITE(NTT't’0,45I) 

451  FORMAT ('  GIVE  COMMAND.  36  CHARACTERS  MAXIMUM' 

8./'  SHARP  SIGN  UILL  EE  ADDED  BY  COMPUTER') 

READ  CNTTYI , 420) JUNK2 
UR  I TE ( NTTYO , 423 ) OU T 
420  F0RMAT(1SA2) 

423  FCRMAT(Id,2X, 19A2) 

CALL  TRAMID(0UT(2), I9,REPLY(2), 19,0.) 

GO  TO  455 
460  CONTINUE 
C 

C SET  TIME 
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jM-FMIDAS  MIDAS  CALLS  TO  INTEGRATE  INTO  FORTRAN 
TITLE  CALL  DEFINITION 
TARGT  16 
NOSQZ 
UIDTH  132 
LCNT  50 
SPACE  7 


* 

CALLS 

* 

9fC 

CALL 

* 

* 

U = 1 

OS  = 

♦ 

IS  = 

* 

L = 

* 

OR 

>k 

TS 

* 

* 

S » 

♦ 

* 

* 

* 

* 

* 

1,U,0$, IS,L  OR  TS.S 

PASLA  UNIT  NUMBER 
OUTPUT  STRING 
MINPUT  STRING 

MAXIMUM  LENGTH  OF  MINPUT  STRING 

NEU  TERMINATION  CHARACTER  FOR 'MINPUT  STRING 
L DEFAULTS  TO  255,  T3  DEFAULTS  TO  CARRIAGE  RETURN 
STATUS  REPJRNED  l/HERE: 

-1  IS  BAD  PASLA  UNIT  NUMBER 

0 IS  NO  ERRORS 

1 IS  PREMATURE  TERMINATION 

2 IS  DEVICE  UNAVAILABLE 

4 MEANS  MINPUT  UAS  RECEIVED 
8 IS  OPERATOR  INTERVENTION 
16  IS  FRAMING  ERROR 
32  IS  PARITY  ERROR 
64  IS  PASLA  0‘v^RFLOU  ERROR 


AFTER  MINPUT  TERMINATION 


SPACE  7 

)Mok>io|c+o(oioK>K>io):>K>K>K)io(oic>iJ>k>M.'>K;K>K5toK>(otoio;c>!ofr4c>K>icf=^OK>MoMo^JK>(^^ 


:ic 

* REGISTER  USE 

* 

* 0 - UORKING  REGISTER,  INTERRUPT  LEVEL 

* 1 - USER  AREA  POINTER,  BEGINNING  ADDRESS 

* 2 - UORKING  REGISTER,  INTERRUPT  LE'/EL 

* 3 - UORKING  REGISTER,  USER  INDEX 

* 4 - NUMBER  OF  CHARACTERS  LEFT  TO  BE  SENT  FROM  OS 

* 5 - ADDRESS  OF  NEXT  CHARACTER  OF  IS 

* 6 - TERMINATION  CHARACTER  OF  IS 

* 7 - MAXIMUM  LENGTH  OF  IS 

* 8 - POINTER  TO  PASLA  TiVE  2 COMMAND 

* 9 - RECEIVER  DEVICE  CODE 

* 10  - TRANSMITTER  DEVICE  CODE 

* 11  - ADDRESS  OF  NEXT  CHARACTER  OF  OS 

* 12  - ADDRESS  OF  BEGINNING  CF  IS 

* 13  - ADDRESS  OF  RETURNED  STATUS  UORD 

* 14  - RETURN  ADDRESS  TO  BASIC 

* 15  - ADDRESS  OS  CALL  PARAMETER  LIST 

« 

* THIS  IS  CMIDAS  AS  CHANGED  FOR  FORTRAN 

* THE  CHANGES  UERE  SUGGESTED  BY  BILL  HALL,  NBS  BOULDER, 


# 
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10  CONTINUE 

IF  (NST0P.EQ.6)  RETURN 
15  CfiLL  SETPflRCFC  n,  1,N2,NTHCP,TC) 

CALL  SETPflR(FC2) ,2,N3,NTHCP,TC) 

CALL  SETFAR(F(3),3.N5,NTHC?,TC) 

CALL  SETFARCF(4) ,4,N4,NTHCP,TC) 

IF(NPRINT.GE.3)IJRITE(NPRINT,20)F 
IF(NFILEB.GE.6n.JRITECMFILEB.20)F 
20  FORMATS/'  FACTOR  LEVELS  SET  TO' , 4F 10 . 3//) 

IF(N2+N3+N4.EQ.0)G0  TO  230 
Nl  = l 

1F(NFILEB.GT.6)URITE(:NFILEB,30)N1,N2,N3,N4,LOOP,PLAT 
&,NFVEC.F,T0PF,  ( (DES IGM ( J, K) , J = K4)  ,k  = 1,NFVEC) 
IF(NPRINT.GE.3)uJRITE':NPRINT,33)N1,N2,N3,N4 
&,LOOP,NPLAT 

&,NFVEC,F,T0PF.  (i:DESIGN(J>K),J=1,4)  ,K=1,NFVEC) 

33  FORriATC'  STOPPED  IN  FACSET  BECAUSE  OF  ERRORS  IN  SETTING  FACTORS' 
8./'  N1=',I3 

&/'  ERROR  FLAGS  ARE’. 313 
8./'  LOOP  NUMBER  '.13 
8./'  PLATEAU  NUMBER  '.13 
8./'  FACTOR  LEVELS' ,4E14. 6 
8./'  FACTOR  STEPS  '.4E14.6 
6.y'  FACTOR  VECTORS' . (/4E 14. 6)) 

NTIhE=NTIME+l 
IF(NTIME.LT.3)G0  TO  15 
PAUSE  20 
GO  TO  15 
200  N1=0 
RETURN 
END 


SASSM 
FCTN  PROG 
$FORT 
STRGT  16 

C 

C 

FUNCTION  FCTN  (X. I. J. JTERMS.NPTS) 

C 

c 

C FUNCTION  TO  CALCULATE  FITTED  VALUES  FOR  REGRES  SUBROUTINE 

C 

c 

DIMENSION  X(NPTS) .JTERMS(J) 

JEXP=JTERMS(J) 

FCTN=X(I)>i<>i<JEXP 

RETURN 

END 


A44 


SPACE  3 

CMDTB  DC  X'2G2E'  PASLA  26 
DC  X'286E'  PASLA  28 
DC  X'246E'  PASLA  24 

ECMDTB  DO  3 REPEAT  NEXT  LINE  FOR  EACH  PASLA  DEFINED 
DC  0,0,8,P.R-G,>k+4,  I,U.0,V,0,O.0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,P.R,G,>k-50,OL 
TITLE  RELEASE  COMMAND  FOR  MIDAS  UNIT 

* 

* FORTRAN  CHANGE 

* ' 

RELESE  STM  0,RS 

LHI  14,R.ETAD 
AIS  15^2 

LH  4,0(l5)  GET  THE  DEVICE  CODE 

* 

* 

* RELESE  LH  4,9(15)  GET  THE  DEVICE  CODE 

» 

LH  10,0(4) 

SHI  10, X' 4200'  REMOVE  EXPONENT 
LHI  8, CMDTB 
LHI  3,ECMDTE! 

RSRCH  LB  9,0(8)  GET  PASLA  NUMBER  IN  TABLE 
CHR  9,10 

BZS  RFUNIT  PASLA  IN  TABLE? 

AIS  8,2  NO,  KEEP  LOOKING 
AHI  3,70 
CLHI  8, ECMDTB 
BLS  RSRCH 

BR  14  CAN'T  CLEAR,  SO  RETURN 
RFUNIT  LH  6,18(3) 

CHR  1,6  ONLY  USER  CAN  RELEASE 
BN2R  14  NOT  THE  USER 
XHR  0^0 

STH  0,18(3)  RELEASE  UNIT 
BR  14 

TITLE  MIDAS  DRI'/ER 

* 

* 

* FORTRAN  CHANGE 

» 

MIDAS  STM  0,RS 
LHI  14,RETAD 
AIS  15,2 

LH  13,8(15)  STATUS  UQRD  ADDRESS 

* 

* 

* MIDAS  LH  13,8(15)  STATUS  WORD  ADDRESS 

* 

LH  12,4(15)  ADDRESS  OF  1$ 

XHR  3,3 


f 
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TELEPHONE  8--32Z-4433  (FTS) 


3»< 

* 

JK  THE  CALL  IS:  CfiLL  riIi)ftS(U,0,Fl ,FL,S) 

* OR  CALL  riIDflS(U,0,F].T,S) 

* UHERE  U,FL  AND  S ARE  FLOATING  POINT  NUMBERS 

* AND  0 AND  FI  ARE  HOLLERITH  ARRAYS. 

* TO  RELEASE  THE  UNIT  ASSIGNED  TO  MIDAS:  CALL  RELESE(U) 

UHERE  U IS  THE  UNIT  NUMBER. 

* 0 IS  THE  STRING  TO  OUTPUT  TO  MIDAS 
FI  IS  THE  INPUT  STRING 

>k  FL  IS  THE  MAXIMUM  LENGTH  OF  THE  INPUT  STRING 
5K  T IS  AN  OPTIONAL  HOLLERITH  CHARACTER  FOR  TERMINATION 
X<  S IS  A STATUS  UORD  (LJHICH  HAS  TO  BE  CHECKED  FOR  TRANSMISSION 
COMPLETE) 

>fc 

* 

* 

TITLE  SUBROUTINE  CONSTANTS 
>K 

* FORTRAN  ENTRIES 

ENTRY  MIDAS 
ENTRY  RELESE 

♦ 

MMODE  EQU  X'SE'  USER'S  MMODE  FLAG  IN  BASIC 
* 

♦ THE  FOLLOUING  DEFINITION'S  ARE  NEEDED  IN  THE  DC  BELOU 
>K 

G EQU  X'D100'  LOAD  MULTIPLE  INSTRUCTION 
P EQU  X'DOeO'  STORE  MULTIPLE  INSTRUCTION 
I EQU  X'0300'  BRANCH  TO  REGISTER  0 
OL  EQU  X'0302'  BRANCH  TO  REGISTER  2 . 

* 

* FORTRAN  CHANGE 
RS  DS  32 

* 

* 

R DS  32  MIDAS  INTERRUPT  REGISTER  SAVE  AREA 
SPACE  7 

j{oK>k5K>K^'>|cl''>KrK>K:tc>K>;oK’toK>K>;»K>|r>K>K5(oK>lototo|oK>K>fr>fc>K>!o|otoloK>K5to^^ 

>K 

^ THIS  TABLE  SHOULD  BE  TAILORED  TO  THE  INDIVIDUAL 
^ SYSTEM  UITH  LHICH  IT  UILL  EE  USED 
* 

>t:  THE  FIRST  BYTE  OF  EACH  CONSTANT  IS  THE  PASLA 

* DEVICE  CODE,  AND  THE  SECOND  BYTE  IS  THE 

* TYPE  2 COMMAND  TO  BE  ASSOCIATED  UITH  IT. 

>K 

xc  REPEAT  COUNT  ON  THE  DO  AT  ECMDT3  MUST  CORRESPOND  TO 

* THE  NUMBER  OF  FASLAS  DEFINED  IN  ThiE  CMDTB  TABLE. 
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SPACE  3 

CMDTB  DC  X'2b2E'  PASLA  26 
DC  X'286E'  PASLA  28 
DC  X'246E'  PASLA  24 

ECfIDTB  DO  3 REPEAT  NEXT  LINE  FOR  EACH  PASLA  DEFINED 
DC  0,0,8,P,R,G,>K+4.  I,U,0,V,0,O,0,0,8,0,0,0,0,0.0,0,0,0,0,0,0,0,0,P.R.G,:>K-50,OL 
TITLE  RELEASE  COMMAND  FOR  MIDAS  UNIT 

* FORTRAN  CHANGE 

* 

RELESE  STM  0,RS 
LHI  14,RETAD 
AIS  15^2 

LH  4,0(15)  GET  THE  DEVICE  CODE 

* 

♦ 

JK  RELESE  LH  4,9(15)  GET  THE  DEVICE  CODE 

* 

* 

* 

LH  10,0(4) 

SHI  10, X' 4200'  REMOVE  EXPONENT 
LHI  8, CMDTB 
LHI  3,ECMDTB 

RSRCH  LB  9,0(8)  GET  PASLA  NUMBER  IN  TABLE 
CHR  9,10 

BZS  RFUNIT  PASLA  IN  TABLE? 

AIS  8,2' NO,  KEEP  LOOKING 
AHI  3,?0 
CLHI  8,ECMDTB 
BLS  RSRCH 

BR  14  CAN'T  CLEAR.  SO  RETURN 
RFUNIT  LH  6, 18(3) 

CHR  1,6  ONLY  USER  CAN  RELEASE 
BN2R  14  NOT  THE  USER 
XHR  0,0 

STH  0,18(3)  RELEASE  UNIT 
BR  14 

TITLE  MIDAS  DRI'/ER 

* 

* FORTRAN  CHANGE 

» 

MIDAS  STM  0,RS 
LHI  14.RETAD 
AIS  15,2 

LH  13,8(15)  STATUS  UORD  ADDRESS 

* 

# MIDAS  LH  13,8(15)  STATUS  UORD  ADDRESS 

* 

♦ 

LH  12,4(15)  ADDRESS  OF  IS 
XHR  3,3 


f 
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STB  3,-1 (12)  CLEAR  MINPUT  STRING 
STH  3,0(13)  CLEAR  STATUS  UDRD 
STH  3,2(13) 

LH  4,0(15)  GET  DEVICE  CODE 
LH  10,0(4) 

SHI  10. X' 4260'  REMOVE  EXPONENT 
LHI  O.CMDTB 
LHI  3.ECMDTG 

SEARCH  LB  9,0(8)  GET  PASLA  NUMBER 
CHR  9, 10 

B2S  RTUNIT  FASLA  IN  TABLE? 

AIS  8,2  NO,  KEEP  LOOKING 
AHI  3,70 
CLHI  8,ECMDTB 
BLS  SEARCH 

NONO  LHI  3,  X"  Cl  10'  PASLA  NOT  AVAILABLE-RETURN 
STH  3,0(13)  DEVICE  CODE  ERROR 
BR  14 

RTUNIT  LH  6,18(3)  UNIT  ALREADY  IN  USE? 

BZS  GRAB 

CHR  1,6  YES  CHECK  FOR  RIGHT  USER 
BZS  FOUND 

BS  NONO  URGNG  USER— FASLA  NOT  AVAILABLE 
GRAB  STH  1,18(3)  GRAB  THIS  PASLA *FOR  THIS  USER 
FOUND  AHR  10,10 

LH  7,X'D0'(10)  SAVE  VECTOR  FOR  RECEIVE 
STH  7,58(3) 

LHI  7,0(3)  SET  INTERRUPT  POINTER 
STH  7, X' DO' (10) 

AIS  10,2 

LH  7,X'D0'(10)  SAVE  VECTOR  FOR  SEND 
STH  7,52(3) 

LHI  7,54(3)  'SET  INTERRUPT  POINTER 
STH  7,X'D3' ( 10) 

SRLS  10,1  SENDING  DEVICE  CODE 
LH  11,2(15)  ADDRESS  OF  OS 
LH  4,6(15)  MINPUT  TERMINATION  ADDRESS 
THI  4,1  STRING  VARIABLE? 

BZS  NEULEN  NO,  MUST  EE  F.P.  NUMBER 
LB  6,0(4)  YES,  LOAD  TERMINATION  CHARACTER 
LHI  7,X'FF'  AND  DEFAULT  LENGTH 
B ISET 

NEULEN  LH  6.0(4)  GET  LENGTH 
SRL  6,8  SPLIT  F.P.  UORD 
SRLS  7,8 

CLHI  6,X'43'  >255 
BNLS  DEFALT  USE  255 
SHI  6,X'41' 

BNCS  >K+4  <1 
XHR  7,7 
BNZS  ^+4 
ERLS  7,4 
BS  Ji<+6 

DEFALT  LHI  7,X'FF' 

LIS  6,13  TERMINATE  ON  CARRIAGE  RETURN 
ISET  LHR  5.12  SET  MINPUT  POINTER 
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XHR  4,4  CLEfiR  OUTPUT  COUNT 

STM  3,22(3.''  SET  INTERRUPT  REGISTERS 

STH  4,48(3)  CLEAR  ERROR  CODE 

OC  9,1(8)  ISSUE  TYPE  2 COMMAND  TO  PASLft 

SSR  9,2  MALE  SURE  DEVICE  IS  AVAILABLE 

BFFS  2,CLRIN 

LHI  15,X'4130'  NOT,  SO  SET  ERROR 
B MRESTGR 

CLRIN  RDR  9,2  CLEAR  MINPUT  REGISTER 
OC  9,URTRD-j-l  SET  MINPUT 
OC  10,IJRTRD  SET  OUTPUT 
LB  4,-1 (11)  SET  OUTPUT  COUNT 
STB  4,25(3) 

SINT  0(10)  START  OUTPUT 
UAIT  LH  15,43(3)  CHECK  FOR  TERMINATION  FLAG 
THI  15,2 

* 

# FORTRAN  CHANGES 

* 

BZ  NOESC 

JK 

* 

* BZ  STATOK  DEVICE  NOT  UNAVAILABLE 

* 
jk 

PREMAT  OHI  15,X'420r  PREMATURE  TERMINATION 
MRESTOR  STH  15,0(13)  RETURN  STATUS 
LH  15,52(3)  RETURN  AFTER  MRESTORING  VECTORS 
AHR  9,9 

STH  15,X'D2'(S) 

LH  15,59(3) 

STH  15.X'D0'(9) 

BR  14 

* FORTRAN  CHANGES 
Xc 

XcSTATOK  LH  15,MM0DE(1)  GET  USER  MMODE  FLAG 
Xc  SRLS  15, 1 

Xc  BCS  NOESC  USER  ENTERED  ESCAPE? 

LIS  15,8 
B PREMAT 
NOESC  LH  7,30(3) 

LH  4,24(3)  OUTPUT  DONE? 

BNZ  UAIT 

LB  15,-1(12)  IF  SO,  CHECK  INPUT 
SHR  15,7 
BNZ  UAIT 
LH  15,48(3) 

BZ  MRESTOR 
OHI  15, X' 4200' 

B MRESTOR 
x< 
xc 

XC  FORTRAN  CHANGES 
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RETAD  LM  0,RS 
AH  15,0(15) 

BR  15 

* 

* 

TITLE  INPUT  INTERRUPT  PROCESSOR 
U LB  0,-1  (12)  GET  LEi-iGTH  OF  IS 
CHR  0,7  INPUT  EXPECTED? 

BLS  MINPUT 
LIS  0,4  NO 
OH  0,48(?) 

STH  0,43(3)  IGNORE  MINPUT 
SSR  9,2  FAY  DUES  TO  THE  PALS 
RDR  9,8 
B INRET 
MINPUT  SSR  9,2 

BTC  15,IERR  ALL  STATUS  BITS  SHOULD  EE  OFF 
EINPUT  RDR  9,2  MINPUT 
CHR  2,6  TERMINATION  CHARACTER? 

BNZS  SAVIT 
STH  0,30(3)  DONE 
BS  INRET 
SAVIT  STB  2,0(5) 

AIS  0, 1 

STB  8,-1 (12)  INCREASE  STRING  POINTER 
AIS  5,1  AND  MINPUT  POINTER 
STH  5,26(3) 

INRET  LM  0,R 
LPSU  0(3) 

I ERR  THI  2,2  NO  CARRIER? 

BNZS  NODEV 

THI  2,X'FB'  NO  RESPONSE? 

BNZS  STATCK 

NODEV  LIS  0,2  SET  DEVICE  UNAVAILABLE 
OH  8,48(3) 

STH  0,43(3) 

BS  INRET 

STATCK  NHI  2,X'E8’  CHECK  REST  OF  STATUS 
BZ  INRET 
SRLS  2,1 
OH  2,48(3) 

STH  2,43(3)  SAVE  ERROR  43(3) 

B EINPUT 

TITLE  OUTPUT  INTERRUPT  PROCESSOR 
V SSR  10,2 
BFC  15,SENDIT 
BTFS  2,CAN1TX  NO  CARRIER? 

THI  2,X'FB'  NO  RESPONSE 
, BNZS  TXSTAT 

CANTTX  LIS  0,2  CAN'T  TRANSMIT— NO  DEVICE 
OH  0,43(3) 

STH  0,43(3) 

BS  OUTRET 

TXSTAT  THI  2,X’40'  CLEAR  TO  SEND? 

BNZS  CANTTX 
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SSR  10,2  BUSY  FLfiG? 

BFFS  8,SEMDIT 
OUTRET  LM  0,R 
LPSU  54(3)  NO.RETL'RN 
SEND  IT  Lh'R  4,4  MORE  TO  SEND? 

BZS  OUTRET 

SIS  4,1  COUNT  OUTPUT 
STH  4,24(3) 

UD  10,0(11)  SEND  IT 
ftlS  11,1  BUMP  POINTER  ' 

STH  11,38(3) 

BS  OUTRET 

TITLE  MIDflS  DRI^/ER  SVmOL  TOBLE 
URTRD  DC  X'63Sr  FASLA  URITE  AND  READ  COMMANDS 

LIST 
END 


SASSM 
IN  IT  PROG 
$FORT 
STRGT  16 

C )M:>)<>KHc>K>K>l<>lo)ci<c4cMoK;K>K>K>K>k>K>K>toto|oK:4o|oMoK>ioMoMoK5toK5Mok3Mo|o|o(otoK>K>^^ 

c 

SUBROUTINE  INIT 
C 

Q >|f>}o|oK>(c>(;>l<>f''>K>K>K'HoK>^oK5K>k>tc+;>K>K:4:>(o|oK>K>*oK>|oK^otoioKofoKM<>K>toK>K>K>K>fc>K5K>K>K^^ 

C SUBROUTINE  TO  ASSIGN  VALUES  TO  VARIABLES  IN  LABELLED  COMMON 
C NEEDS  ALL  COMMON  BLOCKS 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP(9G0) 

C 

C COMMON  /BIAS/ 

C 

DIMENSION  BIASV(8),SIGBV(8) 

EQUIVALENCE  CB lASVC 1 ) , DUMP ( 1) ) , (S IGBV( 1 ) ,DUMP (9) ) 

C 

C COMMON  /DERIVE/ 

C 

EQUIVALENCE  (PRECE. DUMP ( 131) ) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDUC8) , 1FUNCTC8) , IFDER(8) , IHPUTCB) ,SCALE(8) 

8., NRANGE(8),NREADS(8),NTERMSC8),CHTEST(3),PTIME(3) 
&,PRECF(8),PRECR(3) ,AT(4) 

EQUIVALENCE  (NTHCP, DUMP ( 17) ) , (KANDU ( 1 ) , DUMP ( 18) ) 

8c,  ( I FUNCT  ( 1 ) , DUMP  C2S) ) , (I  FDER  ( 1 ) , DUMP  (34)  ) 

8c,  ( IHPUT(  1 ),  DUMP  (42 )),  (SCALE ( 1 ), DUMP (50) ) 
&,(NRAMGE(1),DUMP(58)), (NREADS( 1) ,DUMP(6b) ) 

8c,  (NTERMS(1),DUMP(74)),  (CHTEST(  1 ) , DUMP  (S2) ) 

8. , (PT I ME  ( 1 ) , DUMP  ( 90 ) ) , ( PRECF  ( 1 ) , DUMP  ( 93 1 ) 

8c,  (PRECR(  1 ) ,DUMP(  186) ) , (NFACTS,DUM?(  1 14) ) 

8c,  (NRATES.DUMPdlS)),  (TIMLIM, DUMP ( 1 16) ) 

8c,  (NBRDS,DUMP(117)),  (INTVAL.DUMP(113)) 

8c,  (AT(  1 ) , DUMP  (119)),  (TSCALE,  DUMP  ( 130) ) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI , DUMP ( 123) ), (NTTYO, DUMP ( 124) ) 

8c,  (NPR INT, DUMP  ( 125)) , (NF ILEA,  DUMP ( 126) ) , (NFILEB,DUMP(  127)  ) 

8c,  (NFILED.DUMP(128)),  (NFILEE,DUMP(129)) 

C 

C COMMON  /MIDA3R/ 

C 

INTEGER*2  OUT(20) ,REPLY(20) ,NUM( 10) , JUNK2( 18) 

C 

EQU I VALENCE  ( OUT  ( 1 ) . WW  (140)),  (REPLY  ( 1 ) , DUMP  ( 1 60 ) ) , ( HUM  ( 1 ) 
8c,  DUMP(  180)  ) , ( JUNK2 ( 1 ) , 0UT(3) ) , (NF ILTR,  DUMP  ( 190) ) 

C 

C COMMON  /PARAM5/ 

C 

DIMENSION  A01(S),A02(8),SIGA01(S).SIGA02(8) 
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&,Al(4,8),A2(4.8).SIGni(4,S),SIGn2(4,9) 

&,FfiCTl(2,8),SIGFl(2,3),RPlTEl(2.3).SIGRlC2,8) 

8., FACT2(2,S),SIGF2(2.8),R8'!'E2C2,8),SIGR2(2,8) 

8., TIMEF(2),T!MEBC2) 

EQUIVALENCE  ( AG  1 ( 1 ) ,r.UnP(20O) ) . (A02(l)  , DUMP  (208)  ) 

8.,  (S IGAO  1(1).  rUMP  (2 16) ) , (S IGA02  ( 1 ) . DUMP  (224)  ) 

8.,  (Aid,  1),  DUMP  (232)),  (A2  ( 1 , 1 ),  DUMP  (264) ) 

&,  (SIGAKl,  1),DUMP(296)),  (SIGA2(1.  1),DUMF(323)) 

EQUIVALENCE.  (FACTl ( 1 , 1 ) ,DUMP (360) ) , (SIGFl ( 1 , 1 ) ,DUMP(376) ) 

8., (RATE1(1,  1), DUMP (392)),  (SIGR  1(1,  1), DUMP (438)) 

&, (FACT2(1, 1),DUMP(424)), (SIGF2(1, 1 ), DUMP (443) ) 

&, (RATE2(1, 1), DUMP (456)), (SIGR2(1, 1), DUMP (472) ) 

8.,  (KOUNTl, DUMP (483) ) , (!<3UMT2, DUMP (489) ) 

EQU I VALENCE  ( T I r !EF  (1 ) . DUMP  ( C63 ) ) , ( T I MEB  ( 1 ) , DUMP  (502 ) ) 

8.,  (DAY, DUMP (504)),  (HDTIME, DUMP (505)) 

8.,  (S:<IP,DUMP(50S)),  (RATM]N,DUM?(507)),  (RATMAX,  DUMP  (598)  ) 

8.,  (TJUMP,  DUMP  (509) ) 

COMMON  /PLAT/ 

DIMENSION  RCHK8) 

EQUIVALENCE  (LPLAT, DUMP (5 10) ) , (NELAPS, DUMP (5 1 1 ) ) 

&, (NFIRST.DUMP(512)), (NCH!,DUMP(513)), (NST0P,DUMP(514) ) 

8.,  (START,DUMP(515)),  (RCH I ( 1 ) , DUMP  (5 16) ) 

8.,  (N0'mER,DUMP(524)),  (KSTORE, DUMP  (525) ) 

8.,  (ENDSIG,DUMP(52S)) 

&, (T01M4,DUMP(527)), (FACTIM,DUMP(528)),  (EQUIL,DUMP(529)) 

COMMON  /REGRS/ 

DIMENSION  M(5),R(5),YFIT(250) 

EQUIVALENCE(M( 1) ,DUMP(530) ) , (R( 1 ) ,DUMP(535) ) , (YFIT( 1) ,DUMP(540) ) 
COMMON  /STEPS/ 

DIMENSION  F(4),DELF(4),DESIGN(4, 16),FDER(4) 

EQUIVALENCE  (F( 1 ) , DUMP (800) ) , (DELF ( 1 ) , DUMP (8C4) ) 

8.,  (DESIGNd,  l),DUr'P (808)),  (NFVEC, DUMP (872)),  (FDER(l), DUMP (873)) 

COMMON  /UHEN/ 

DIMENSION  TPLATl (2) ,TPLAT2(2) ,NTYME(3) 

EQUIVALENCE  (BEG IN. DUMP (830) ) , (TPLATl ( 1 ) , DUMP (88 1 ) ) 

8.,  (TPLAT2  ( 1 ) , DUMP  (883) ) , (NTYME  ( 1 ) , DUMP  (885) ) 


INITIALISE  COMMON  VARIABLES 

DO  1 1=1,900 
1 DUMP(I)=0. 

NUM(1)=X’30' 

NUM(2)=X'3r 

NUM(3)=X'32' 

NUM(4) =X'33' 
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NUM(5)=X'34' 

NUM(G)=X'35' 

NUM(7)=X'36' 

NUM(8)=X'3?' 

NUM(9)=X'38' 

HUM«:iO)=X'39' 

DAY=0. 

SKIP=30. 

HDTIME=0. 

NSTOP=0 

NTHCP='E' 

TSCALE=243.73 

GENERAL  LOOP  OVER  PARAMETERS 

DO  10  I=!,8 

KANDLI(I)=G 

IFUNCT(I)=0 

IFDER(I)=0 

INPUT(I)=I-I 

SCALE(I)=1. 

NRANGE(I)=5 

NREADS(I)=3 

NTERI1S(n=0 

CHTEST(I)=l030. 

PTIME(D=300. 

PRECF(I)=lO0. 

PRECR(I)=50. 

10  CONTINUE 

CHANGE  THE  EXCEPTIONS 

KANDU(1)=1 

KANDU(2)=2 

IFDER(1)=1 

SCALE (3) -0.01 

NRANGE(1)=3 

NRANGE(2)=3 

NTERMS(1)=2 

NTERMS(2)=1 

CHTEST(1)=2080. 

CHTESTC3) =99999. 

SET  THE  REMAINING  VALUES 

PRECE-25. 

NFACTS-2 

NRATES-1 

TIMLIM-600. 

NBADS-8 

EQUIL=2O0. 

lNTVAL-200 

ENDSIG-0. 

RATMIN-15. 

RATMAX-45. 

TJUMP-16. 
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DO  20  I«»l»5 

20 

HTTYI=5 

NTTYO=4 

NPRINT=3 

NFILEfi=7 

NFILEB=8 

NFILED=1 

NFILEE=6 

RETURN 

END 
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mriNV  PRCG 
$FORT 
STRGT  16 

Q >Motok>|ojoMo}oK>ioMoioK5k5fciMoMoWotototo)ciok5K5toMc4ototoMoMotoK5Mo{cio{o^^^ 

c 

SUBROUTINE  mTINV  CfiRRPY,NORDER,DET) 

C 

C >Mo^>^>iok>K>K>(»!oK>K>rotc>Kv;;>K>^oioK:^c>K>t»M<>K>WoK>io'oMoi<>Mok>4oM<Mc^oK>Wo|c{<>|oK^^  . 

C SUBROUTINE  FOR  MATRIX  INVERSION 

C 

DOUBLE  PRECISION  ARRAY, AMAX, SAVE 
DIMENSION  ARRAY(5,5), IK(5),JK(5) 

DET=1. 

DO  1S0  K=l,NORDER 

C 

C FIND  LARGEST  ELEMENT  ARRAY(I,J)  IN  REST  OF  MATRIX 

C 

AMAX=0. 

10  DO  30  I=K,NORDER 

DO  33  J=K,NORDER 

IF  (DABSi:AMAX)-DABS(ARRAYn,J)))  20,20,30 
20  AMAX=ARRAY(I,J) 

1K(K)=I 

JK(K)=J 

30  CONTINUE 

C 

C INTERCHANGE  RODS  AND  COLUMNS  TO  PUT  AMAX  IN  ARRAY(K,K) 

C 

40 
50 
60 


70 

B0 

90 


100 
C 

C ACCUMULATE  ELEMENTS  OF  INV'ERSE  MATRIX 

C 

110 

120 
130 


140 

150 


DO  130  I=l,NORDER 

IF  <I-K)  120,130,120 

ARRAY (I , K )=- ARRAY ( I , K ) /AMAX 

CONTINUE 

DO  160  l=l,NORDER 

DO  160  J=l,NORDER 
IF  (I-K)  140,160,140 
IF  (J-K)  150,160,153 

ARRAYC I , J)  =ARRAY(  I , J)  +ARRAY(  I , K)  >kARRAY(K,  J) 


IF  (AMAX)  50,40,50 
DET=0. 

GO  TO  260 
I=IK(K) 

IF  (I-K)  10,80,60 
DO  70  J=1,NCRDER 
SAVE=ARRAY(K,  J) 

ARRAY ( K , J ) =ARRAY ( I , J ) 
ARRAY(I,J)=-SAVE 
J=JK(K) 

IF  (J-K)  10,110,90 
DO  160  I=1,N0RDER 
SAVE=ARRAV( I,K) 
ARRAY(I,K)=ARRAY(I,J) 
ARRAY(I,J)=-SAVE 
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160  CONTINUE 

DO  180  J=l,NORDER 

IF  (J-K)  173,160,170 

170  ARRAY  (K,J)=F.RRftY(K,J)/AmX 

180  CONTINUE 

ARRAY (K,K)=l./AnAX 
190  DET=DET^fiAmX 

C 

C RESTORE  ORDERING  OF  MATRIX 

C 

DO  250  L=l,NORDER 
K=NORDER-L+l 
J=IK<K) 

IF  (J-K)  220,220,200 
DO  210  I=l,NORDER 
SAVE= ARRAY  (1,10 
ARRAYC I , K) =-ARRAY( I , J) 
ARRAY(I,J)=SAVE 
I=JK(K) 

IF  (I-K)  250,250,230 
DO  240  J=1,N0RDER 
SAVE=ARRAY(K,J) 
ARRAY(K,J)=-ARRAY(I,J)’ 
ARRAY(1,J)=SAVE 
CONTINUE 
260  RETURN 
END 


200 

210 

220 

230 

240 

250 
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SfiSSM 

OVERLY  PROG 
SPORT 
STRGT  16 

C >|o|oMc^<>i<^5K>K>!ok>foH>»:)totok>MoloMototoK>MofcfoK5MoMofoK^^^ 

c 

SUBROUTINE  OVERLY(NPROG,NUNlT,NREUIN,NTr(TI) 

C 

C 3(ofo|oK>K>K5K>’:^>lolc>K>t^>k>X>;ofr>K>M<>}oK>toio|ofo1c>[;^^>K>K>K>K>iOi':HoK>KMo<<>;<>toK>K>>o;o’(C4c)^^ 

C SUBROUTINE  TO  REfiD  IN  GVERLRY  SEGMENT  FROM  UNIT  NUN  IT 
C TRY  3 TIMES  IF  CVERLftY  IS  P.T  BEGINNING  OF  PILE 

C 

INTEGER>!<2  NPR0GC3) 

30  NTIME=1 

C . 

C REUIND  INPUT  UNIT  IF  APPROPRIATE,  READ  IN  OVERLAY  SEGMENT 

C 

10  IF(NREUIN.EQ.0)REUIND  NUNIT 
CALL  IFETCHCNPROG, NUNIT, ISTAT) 

IF (ISTAT. ED. 0) RETURN 
NTIME=NTIME+1 

IF(NT1ME.LE.3.AND.NREUIN.EQ.0)GO  TO  10 

C 

C ERROR  ROUTE 

C 

IlRITE(NTTYO,20)NPROG,NUNIT 

20  FORMATC'  CANNOT  READ  IN  OVERLAY  ',3A2,'  FROM  LOGICAL  UNIT', 13) 
C 

C REPEAT  AFTER  =CONT3NUE=  GIVEN  BY  OPERATOR 

C 

PAUSE 
GO  TO  30 
END 
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SflSSM 

PLATTO  PROG 
$FORT 
STRGT  16 

C JMo)oJoK>M<:M<>k>fc<cK:4oMGta<o|o(ot=>!oK>Wo}c>joio|oMc<oK5toMoMo?^^ 

c 

SUBROUTINE  PLATTOCAO.SIGAO, A,SIGA,KOUNT,TF,STF,TYT1E,NERROR,NPLAT 
&,  BEG I MU) 

C 

c >Mc5^<>io^<>K>K>K^^•>MoK>fDKHoic^oiofofo^c^o:otoK^^c>^c>fc4c^ok>K>K>K5^<>^oK>K>^c^<^ 

C SUBROUTINE  TO  COLLECT  UEIGHT  DATA  DUPING  A PLATEAU  IN  SOME 
C FACTOR  OR  COMBINATION  OF  FACTORS  (UHICH  MAY  INCLUDE  SOME  FUNCTION 
C OF  THE  RATE  OF  UEIGHT  LOSS)  AND  FIT  A POLYNOMIAL 

C OF  DEGREE  NTERMS(K)  FOR  FACTOR  K AS  A FUNCTION  OF  TIME. 

C 8 FACTORS  MAXIMUM.  250  POINTS  PER  PLATEAU  MAXIMUM  (NOT  COUNTING 
C PARTS  DISCARDED  BECAUSE  OF  INSTABILITY  IN  FACTOR  LEVELS). 

C 

C NEEDS  THE  FCLLOUING  COMMON  BLOCKS.  FUNCTIONS  AND  SUBROUTINES: 


c 

COMMON 

/BIAS/ 

c 

COMMON 

/FACTR/ 

c 

COMMON 

/ID/ 

c 

COMMON 

/MIDASR/ 

c 

COMMON 

/PARAMS/ 

c 

COMMON 

/PLAT/ 

c 

COMMON 

/REGRS/ 

c 

COMMON 

/UHEM/ 

c 

ESET 

c 

FACFUN 

c 

REGRES 

c 

RPAR 

c 

TIMER 

C 

c 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP« 

COMMON  DUM?(S00) 

C 

C COMMON  /BIAS/ 

C 

DIMENSION  BIASV(8),SIGBV(8) 

EQUIVALENCE  (BIASVC 1) .DUMP( !) ) , CSIGBVC 1) .DUMPCS) ) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(B) , IFUNCT(B) . IFDER(B) . INPUT(B) . SCALE (8) 
& . NRANGE ( 8 ) . NREADS ( 8 ) . HTERMS ( 8 ) . CHTEST ( 8 ) , PT I ME ( 8 ) 
&,PRECF(8) .PRECR(S) .AT(4) 

EQU I VALENCE  ( NTHCP . DUMP ( 17 ) ) , (KANDU ( 1 ) , DUMP (18)) 
e.,  ( IFUNCT(  1 ) , DUMP  (26 ) ) . ( IFDER  ( 1 ) , DUMP  (34) ) 

8.,  (INPLIT(  1)  ,DUMP(42) ) . (SCALE ( 1 ). DUMP (50) ) 

(NRANGE (1). DUMP (58) ) , (NREADS ( 1 ), DUMP (66) ) 

(NTERM3 ( 1 ) , DUMP (74) ) . ( CHTEST ( 1 ) , DUMP ( 82 ) ) 

8.,  (PTIME(  1)  .DUMP(S0) ) , (PRECF ( 1 ) , DUMP (93) ) 

8.,  (PRECP(  1)  .DUMP(  106) ) , (NFACTS, DUMP ( 1 14) ) 

8..  (NRATES.DUNP(  1 15) ) , (TIML IM, DUrP ( 1 16)  ) 

8.,  (NBADS.DUMP(  1 17) ) . ( INTVAL,  DUMP ( 1 18) ) 

8..  (AT(  1 ) .DUMP (119)).  (TSCALE.DUMP(  130) ) 
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c 

C COMMON  /lO/ 

C 

EQUIVALENCE  (NTrVl , LUMP ( 123) (NTTYO, DUMP ( 124) ) 
a.  (NPRINT,DIJMP(125)).  CNFILEA,DUMP(12S)),  (NF1LEB,DUMP(127)) 
a, (NFILED,DUMP( 128) ) , (NF ILEE, LUMP ( 123) ) 

C 

c COMMON  /MIDASR/ 

C 

INTEGER>{:2  OUT(20) , REPLY(23) , MUM(  10) , JUNK2  ( 18) 

C 

EQUIVALENCE  (DUT(  1 ) ,DUMP(  140) ) , (REPLYC 1 ) ,D'JMP ( 160)  ) , (NUM(  1 ) 
a,DUMP( 180) ), (JUNK2(1) ,0UT(3)), (NFILTR, DUMP (190) ) 

C 

c COMMON  /FARAMS/  (PART  OF) 

C 

EQUIVALENCE  (SK IP, DUMP (506) ) 

C 

c COMMON  /PLAT/ 

C 

DIMENSION  RCHK8) 

EQUIVALENCE  (LPLAT,DUMP(518) ) , (NELA?S,DUrP(51 1) ) 
a,  (NFIRST,DUM°(512)). (NCHi,DUM?(513)), (NSTOP, DUMP (5 14) ) 
a, (START, DUMP(515) ), (RCH](1),DUMP(516)) 
a,  (N0THER,DUMP(524)), (KSTCRE, DUMP (525) ) 

a,  (ENDSIG,DUMP(526)) , (T0IM4,DUMP(527) ) , (FACTIM,DUMP(523) ) 
a, (EQUIL,LUMP(523)) 

C 

C COMMON  /REGRS/ 

C 

DIMENSION  M(5),R(5).YFIT(250) 

EQU I VALENCE (M( 1 ) , DUMP (530) ) , (R ( 1 ) , DUMP (535) ) , (YF IT( 1 ) , DUMP (540) ) 

C 

C COMMON  /UHEN/ 

C 

DIMENSION  TPLAT1(2),TPLAT2(2),NTYME(3)  • 

EQU  I VALENCE  (EEG  IN,  LUM.^  (380) ) , (TPLATl  ( 1 ) , DUMP  (38 1 ) ) 
a, (TPLAT2 ( 1 ), DUMP (683) ), (NTYME(l), DUMP (885)) 

C 

C 

LOGICAL  ITEST 
C 
C 

DIMENSION  A0(8) ,SIGA0(8),A(4.8),SIGA(4,8),TF(5,8),STF(5,8) 
a,TYME(5),TEER0(5) ,TE^F(5) ,STEM?(5) 
a,ATP(2) ,SIGATP(2) 

DIMENSION  NU0RD(8) 

DATA  NU0RD/'EB','TC','PR','Fr,'F2' 
a,'Rl','R2','XX'/ 

c 

c INITIALISE 
C 

LOOP=0 

NFIRST=0 

NSTOP-0 

NERROR=0 
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NELAPS-0 
KST0RE=8 
DO  4 J=l,5 
TYME(J)=0. 

TEMP(J)=0. 

STEriP(J)  = l.E-09 
DO  4 I=1,NFPCTS 
TF(J,  n=o. 

STF(J, I)=l.E-09 
RCHI(n=0. 

4 CONTINUE 

C MrTKE  K0UHT=-4  70  COLLECT  4 D9TN  POINTS  QUICKLY  TO  USE  IN 
C STEADINESS  CHECKS  UITHOUT  BIASING  THE  DATA  UITH 

C 5- CLOSE  POINTS  IN  THE  UNSTEADY  PART  AT  THE  BEGINNING 

C OF  THE  PLATEAU 
K0UNT=-4 

UNLESS  NO  STEADINESS  CHECKS  UILL  BE  MADE 
IF  (NCHI.EQ.0)  KOUNT  = 0 
PRINT  HEADING 

IF (NPR INT . GE . 3) UR ITE  CNPR INT, 200) NPLAT 
I F (NF I LEB . GE . S ) UR  I TE ( NF I LEB , 2S0 ) NPLAT 

200  FORMATC'  MEASUREriENT  FOR  PLATEAU  NUMBER' -13,'  *?iofoMoK' ) 

IF (NPR INT. GE. 3) UR ITE (NPR INT, 201) 
IF(NFILEB.GT.6)URITE(NFILEB,201) 

201  F0RMAT(/'  NO.  F I READING  SIGMA  RD  TIME' 

8c,'  BAD  RCHI  TESTCH'//) 

REWIND  NFILED 
L00P=L0CP+1 

miT  UNTIL  ECUILIBRATION  TIME  HAS  ELAPSED 
830  START=T  I MER  NTYME ) -BEG  I N 

IFC(START-FACTIM)  .LT.EGUIDGO  TO  833 


ENTRY  PLATCO 


IF (NFIRST. NE . 0 . AND . NPR INT. GE . 3) UR ITE (NPR INT, 623) NPLAT 
IF(NFIRST.NE.0.AND.NFILEB.GT.6)URITE(NFILEB,620)NPLAT 
620  FORMAT(/'  PLATEAU' , 13,  ' CONTINUED  ;*otoioioM<' /) 

NFIRS7=1 


BEGIN  READ  LOOP 
5?0  CONTINUE 

M0\€  ANY  PREVIOUS  READINGS  DOUN  IN  SMALL  ARRAY  STORAGE  LISTS 

DO  30  J=l,4 
TYME(J)=TYME(J+!) 

Ha>30  Ic-4',NFACT5 
I) 

■^0  >3nFi(ca,iD>-4srTF(.j+i , i > 
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C 


K0UNT=K0UNT+1 


DELPIY  LOOP 

IF(KOUNT.LE. 1)G0  TO  26 
27  T=TIMER(NrtT-:E)-BEGIN 

IF(T-TYI-TE(5)  .LT.SKIP)GO  TO  27 

READ  TIME.  UEIGHT  AND  FACTOR  LE'VELS  ALL  TOGETHER  AS  RAPIDLY  AS 
POSSIBLE 

THIS  IS  TirE  FROM  BEGINNING  OF  EXPERIMENT 

26  TYME(5)=Tir-ER(NTYME)-BEGIN 
ILTr=0 

DO  20  J = KNFACTS 
I=KANDU(J) 

IFUNPUTCI)  .EQ.0)  ILT=J 

CALL  RP AR ( TF ( 5 , J ) , STF ( 5 , J ) , I NPUT ( I) . NRANGE ( I) . SCALE ( I ) 
e.,  HREADS  ( I) , B I ASV  (I ) - NERRCR) 

IF(NERR0R.EQ.6)G0  TO  22 
IF (NPR I NT. GE . 3) UR ITE  CNPR INT, 23) NERROR 
IF(NFILEB.GT.6)LRITE(HFILE5,23)NERR0R 
23  FORMATC'  NERROR  VALUE  OF',  12,'  IN  PLATTO  >toictotc*' ) 

22  STF<5,J)=STF(5,J)/5QRT(FL0AT(NREADS(I))) 

IFAC=IFUNCT( I) 

CALL  FACFUNCTF(5,J),STF':5,J),  IFAC)  - 

STORE  INITIAL  UEIGHT  IF  NEEDED 

IFCNPLAT.NE. !)G0  TO  20 
IF(ABSCBEGINU) .GE. 1.0E-6)G0  TO  20 

IFCINPUTCI) .NE.O.OR.LCOP.NE. 1.0R.K0UNT.NE.-3)G0  TO  20 
BEGINU-TFCS. J) 

IF(NFILEB.GT.6)UR1TECNFILE3,244)BEGINU 
I F (NPR I NT . GE . 3 ) UR  I TE  C NPR I NT, 244) BEG  I NU 
244  FORMATC-"  8=?,S.S<gc  INITIAL  UEIGHT  MEASURED  IN  PLATTO  AS',F15.1 
&S,e:S<S.'/) 

20  CONTINUE 

4 

READ  OTHER  EXPERIMENTS  HERE 

3$3£3$3$353S$S£3SS3S$SS3$S$3$533S$S3$$$$S3S$3S3SS35SSSS 

IF(Iin".LE.0)GO  TO  21 
IF (KQUNT.lt. 2) GO  TO  21 

CHECK  FOR  END  OF  UEIGHT  LOSS  (UT2-UT1)  .LT.  (ENDSIG^^cROOLED  SIGMA) 

IF((TF(5,  IUT)-TF(4,  lUT)  )>k*2/(STF(5,  IUT)>»ok2+STF(4,  IUT)-H<>k2) 
8..LT.ENDSIG)NSTCP=1 
IF(TF(5, lUT) .LT.-0. I5SE+0S) NSTOP= 1 

21  CONTINUE 

C 
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SET  INITIAL  TIME  FOR  THIS  PLATEAU 

I F ( KOUNT . LE . 1 ) TPL  AT2  ( 1 ) =*TYME  ( 5 ) 

CALCULATE  CHI-SQUARE  FOR  SMALL  ARRAYS  IF  ENOUGH  READINGS 
TO  SEE  IF  FACTORS  ARE  AT  EQUILIBRIUM 

NFLAG=0 

DO  48  K=1,NFACTS 
AO(K)=0. 

SIGAO(K)=l.E-09 
DO  48  J=l,2 
A(J,K)=0. 

SIGA(J,K)=l.E-09 
48  CONTINUE 

DO  40  K=1,NFACTS 
I=KANDUCK) 

JJ  = INPUT(D+1 

IF(NF ILEA. GT.S)LRITE(NF ILEA,  IBDNUORDCJJ)  ,TF(5,K) 

STF ( 5 , K ) , NREADS ( I) , T,'-ME •: 5 ) 

101  F0RMAT(2.X,A2,2E14.7, 110,F10.0) 

RCHI(I)=0. 

1F(NCHI.EQ.0)GO  TO  47 
IF(KOUNT.LE.G)GO  TO  47 
DO  50  J= 1,5 

TZERO ( J ) =TYME  C J ) -TYME ( 1 ) 

TEMP(J)=TF(J,K) 

50  STEM?(J)=STF(J,K) 

N7EMF=MIM0<NTERM3( I)  ,2) 

CALL  REGRES ( TZERO , TEMP , STEMP, 5 , NTEMP , M. 0 , YF IT, ATO , ATP 
8c,SIGATO,SIGATP,R,RriUL,RCHI(I),TEST) 

IFCRCHHI)  .LT.CHTESTCIDGO  TO  47 
CALL  BSET(NFLAG, I) 

IF(NPRINT.GE.3)IJR!TE(NPRINT,610)  I,  INPUT(I),RCHI(I),CHTEST(I) 
IF(NFILEB.Gr.S)l.IRITE(NFILEB,610)  I , IMPUTC  D , RCH  I ( I) , CHTESTC I ) 

610  FORMATC/'  UNSTEADINESS  IN  FACTOR' , 13,  ■’  ON  INPUT',  13 
RCHI  MEASURED  =',F9.1,'  TEST  VALUE  IS',F9.1 
8./'  ACTUAL  VALUES  ARE'/'  TIME' , 3X, ' READ ING' , 6X, ' CALC' , 5X,  ' S IGMA' ) 
DO  810  J=l,5 

IF(NF ILE3.GT. 6) UR ITECNFILEB, 820) TZERO (J),  TEMP (J),YFIT(J), STEMP  (J) 
IF(NPRINT.GE.3)URiTE(NPRINT,820)TZERO(J),TEM?(J),YFIT(J),STEMP(J) 
020  FORMAT(F6.0,3F10. 1) 

810  CONTINUE 

47  IF(NPR1NT.GE.3)URITE(NPRINT,44)KCUNT, I, INPUT(I) 
&,TF(5,K),STF(5,K),NREADS(I),TYME(5),NELAPS 
. 8.,RCHI(I),CHTEST(I) 

IF (NF ILE3 . GT. S) UR ITE (NR ILEB, 4^) KOUNT, I , INFUTC I ) 

8., TF(5,K),STF(5,K),NREADS(I),Tf'MEC5),NELAPS 

8., RCHI(I),CHTEST(I) 

44  FORMAT(I5,2I2,2E14.7,I3,F11.0, I4,2F8. 1) 

40  CONTINUE 

TELAPS =TVME ( 5 ) -START 
IF(NSTOP.HE.0)GO  TO  65 
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DO  NOT  SAVE  INFORMATION  UHEN  FACTORS  NOT  AT  EQUILIBRIUM 

IFCNFLAG.EQ.eOGO  TO  60 

NELAP3=^iELAPS+K0UHT+4 

K0UNT=-4 

IF  (UCHI.EQ.0)  KOUNT  = 0 
REWIND  NFILED 


UPDATE  CHTEST  WLUES  EVERY  =NBAD=  UNSTEADY  READINGS 


NFIX=NELAPS/NBADS 
IF(NFIX.LE.KSTGRE)GO  TO  575 
KSTCRE-KSTCRE+l 

UPDATE  CHTEST  AS  1.25^(LATEST  RCHI  V-ALUE) 

!F(L00P.GT.2)G0  TO  100 

IF(NPRINT.GE.3)LJRITE(NPRINT,7a) 

IF(NFlLEE.GT.6)WRITE(NFILEB.7e) 

70  FORMAT ('  NEW  VALUES  FOR  CHTEST  IN  PLATTO' 

8./'  FACTOR  OLD  NEW') 

DO  73  K=1,NFACTS 
I=KANDU(K) 

ITEST=BTEST(NFLAG. !) 

IF(1TEST)G0  TO  576 
GO  TO  73 

576  RCH I ( I ) = 1 . 25>i;RCH  Id) 

IF  (NPR I NT . GE . 3)  UiR  ITE  CNPR INT,  74)  I , CHTESTC I ) , RCH  HI) 
1 F (NF I LEB . GT . 6)  L'R  I TE  CNF  I LEB . 74)  H CHTESTC  I ) , RCH  I C I ) 
74  F0RMATCI7.2F10.3) 

CHTESTC I )=RCHI Cl) 

78  CONTINUE 

CHECK  WHETHER  ALLOTTED  TIME  HAS  ELAPSED 
575  IFCTELAPS.lt. TIMLIM)GO  TO  570 


RETURN  ON  ERROR  BECAUSE  ALL  THE  TIME  HAS  GONE 

OR  BECAUSE  CHI  VALUES  HAVE  BEEN  UPDATED  TWICE  AND  THERE  ARE  STILL 
NO  GOOD  DATA  POINTS 

100  NERR0R=6 

IFCNPRINT.GE.3)L'RITECNPRINT,923)NERRDR 
900  FCRMATC'  NERROR  VALUE  0F',I2H  IN  PLATTO') 

I F ( NF I L EB . GT . 6 ) WR I TE  C NF I LEB , 900 ) NERROR 
GO  TO  65 

YES,  CURRENT  FACTOR  LEXELS  ARE  AT  EQUILIBRIUM,  WRITE  VALUES 
ON  TEMPORARY  SCRATCH  FILE  =NFILED= 

60  IFCKOUNT.LE.OGO  TO  570 

WRITECNFILED.5O0)TfTiEC5),  CTFC5,  I)  ,STFC5,  I)  , I = 1,NFACTS) 

600  F0RMATC5E15.3) 

IS  THE  EXPERIMENT  UNDER  CONTROL?  CHECK  EVERY  ' INTVAL'  POINTS 
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C 


IF(TELfiPS.GT.Tirf^lM)NSTGP=2 
IF (KOUNT. EQ . 250 ) H3T0?=2 
IF<NSTGP.N£.0)GO  TO  55 
KNOD=MOD(KQUNT,  INT'/PL) 

1F(KNOD.NE.0)GO  TO  572 
65  TPLPT2<2)=TYri£(5) 

DISPLAY  E BPL  CN  DVM  SO  THAT  SUPPRESSION  CAN  BE  CHANGED  DURING  OVERLAY 
LOADING,  RATE  OF  UEIGHT  LOSS  CAN  CHECKED  VISUALLY.  ETC. 

OUT(1)=!0 

0UT<2)=X'23' 

0UT(3)='K3' 

OUT(4)='IP' 

OUT(5)='00' 

OUT(6)='0  ' 

DO  615  1=7.13 
615  OUT(  !.'>='  ' 

CALL  TRAMID(0UT(2) . 19.REPLY(2) . 19.0. ) 


IF  (NSTOP.EQ.l)  KOUHT  = KOUNT-1 

RETURN 

END 


t 
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PRECIS  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  PRECISC IFGO.NPLAT.PRECFF-PRECFB.PRECRF.PRECRB) 

C 

0 >^<>oMoK^M<>^<>K^foK^KHoK>Mok5to^c>^<>tc>*^N<5^f>K>K5K5K>K>K>tOK)«)Mc>*!>K>K>Mo4ctoMo^oK^K:K>•oK>k>K* 

C SUBROUTINE  TO  FIT  POLYNOMIfiL  TO  EXPERIMENTRL  RERDINGS 
C AND  ASSESS  UHETHER  PRECISION  OF  EXTRAPOLATED  QUANTITIES  IS  ADEQUATE 

C 

C NEEDS  THE  FOLLOUING  COmON  BLOCKS,  FUNCTIONS  AND  SUBROUTINES; 

C COMMON  /FACTR/ 

C COMMON  /!0/ 

C COMMON  /PARAMS/ 

C COMMON  /REGRS/ 

C COMMON  /UHEN/ 

C BSET 

C BTEST 

C EXTPOL 

C REGRES 

C RES  IDS 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMP (990) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(B) , IFUNCT(8) , IFDER(S) . INPUT(S) , SCALE (8) 

NRANGE (S) . NREAD3 (8) , MTERMS (8) , CHTEST(B) , PTirE  (8) 

8., PRECF(8),PRECR(3),AT(4) 

EQUIVALENCE  (NTHC?,DUMP( !7) ) , (KANDUC 1) ,DUMP( 18) ) 

&, ( IFUNCTC 1 ) , DUMP (2b) ) , ( IFDERC 1 ) , DUMP (34) ) 

E.,  (1NPUT(1),DUMP(42)) . (SCALE  ( 1 ),  DUMP  (50) ) 
t. (NRANGE( 1) ,DUMP(53) ) , (NREADS( 1 ) ,DUrP(66) ) 

&,  (NTERM3(  1)  ,DUM?(74) ) , (CHTE3K  1 ) , DUMP  (82) ) 

8., (PTIME(1),DUMP(90)),  (PRECF(1),DUMP(9S)) 

8.,  (PRECR(  1 ) . DUMP  ( 136) ) , (NFACTS, DUMP ( 1 14) ) 

8.,  (NRATES,DUM.R(115)),  (TIMLIM.DUMPdlS)) 

8.,  (NBADS,DUMP(  1 17) ) , ( INTVAL, DUMP ( 1 18) ) 

8.,  (AT(l),DUMiP(llS)) . (TSCALE. DUMP (120)) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI  .DUMP ( 123) ), (NTTYO, DUMP ( 124) ) 

(NPR1NT,DUMP(125)), (NFILEA,DUMP(126)), (NFILE3.DUMP(127)) 

8c,  (NFILED,DUMP(128)),  (NFILEE.DUMP(129)) 

C 

C COMMON  /PARAMS/ 

C 

DIMENSION  A01(8),A02(8).SIGA01(8),SIGA02(3) 

8., A1(4,8)  ,A2(4,8).3IGA1  (4,8)  ,SIGA2(4.8) 

8., FACT1  (2,8),SIGF1  (2.8),RATE1  (2,8),SIGR1  (2,3) 

8c,FACT2(2,8)  ,SIGF2(2,3)  ,RATE2(2,3),SIGR2(2,8) 

8., TIMEF(2),TIMEB(2) 
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EOUIVfiLENCE  (fiOK  1 ) .DUnP(200)  ) , (A02(  1)  ,DUMP(208) ) 

(S  IGP.0 1(1),  DUn?  (2  16) ) , (S  IGfi02(  1 ) . DUMP  (224) ) 

(Aid,  1), DUMP (232)).  (A2(l,  1 ), DUMP (264) ) 

8.,  (S  IGA  1 ( 1 . 1 ) , DUMP  (296) ) , (S IGA2  ( 1 , 1 ) , DUMP  (328) ) 

EQUIVALENCE  (FACTl ( 1. 1) ,DUMP(3S0) ) • (SIGFl (1, 1) ,DUMP(3?6) ) 

8.,  (RATE  1(1,1),  DUMP  (392) ) , (S IGR 1 ( 1 , 1 ) , DUMP  (403) ) 

8. ,  ( FACT2  (1,1),  DUMP  ( 424) ) , ( S I GF2  ( 1 , 1 ) , DUMP  ( 440 ) ) 

8.,  (RATE2(1,  1)  .DUM?(456) ),  (SIGR2(  1.  1 ), DUMP (472) ) 

8.,  (K0UNT1,DUMP(4S8)),  (K0UNT2,  DUMP  (489)  ) 

EQU I VALENCE  ( T I MEF ( 1 ) , DUMP ( 593 ) ) , ( T I MEB ( 1 ) , DUMP (502 ) ) 

8.,  (DAY- DUMP (524)),  (HDTIME, DUMP (505)) 

8.,  (SKIP,DUMP(5aS)) 

COMMON  /PLAT/ 

EQUIVALENCE  (NST0P,DUMP(514) ) 

COMMON  /REGRS/ 

DIMENSION  M(5),R(5).YFIT(250) 

EQUIVALENCE (M(  1)  ,DUM?(530) ) , (R(  1)  .DUMP (535) ) , (YFITd)  .DUMP (540) ) 
COMMON  /UHEN/ 

DIMENSION  TPLATl (2) ,TPLAT2(2) ,NTYME(3) 

EQU  I VALENCE  (BEGIN,  DUMP  ( 880 ) ) , (TPL  AT  1 ( 1 ) . DUMP  ( 68 1 ) )■ 

8.,  (TPLAT2  ( 1 ) , DUMP  (833) ) , (NTYME ( 1 ) , DUMP  (885)  ) 


DIMENSION  PRECFF (8) , PRECFB (3) , PRECRF (8) , PRECRB (8) 

DIMENSION  TYME (250) , P (250) , SP (250) , PASS ( 16) , NUDRD (2) 
DATA  NUORD/'  YES','  NO'/ 

DATA  NR.NF/'  R'.'  F'/ 

IFGO=0 


IF(NPRINT.GE.3)URITE(NPRINT,790)NPLAT 
790  F0RMAT(/'  CHECKS  OF  PRECISION  FOR  PLATEAU', 13 

IF(NF ILEB . GT. 6) UR ITE (NF ILEB, 793) NPLAT 

FIND  MIDDLE  OF  PLATEAUS 

TMID1=(TPLAT1(1)+TPLAT1 (2))/2. 
TMID2=(TPLAT2(i)+TPLAT2(2))/2. 

REWIND  NFILED 

READ  FIRST  FACTOR  READINGS  IN 

NFACT2=2>f=NFACTS 
DO  10  J=1,K0UNT2 

READ(NFILED,bQO)TYME(J), (FASS(I), I=1,NFACT2) 
PCJ)-PASS(l) 
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SP(J) -PfiSS(2) 
600  F0RMAT(5E15.8) 


PUT  TIME  ORIGIN  IN  MIDDLE  OF  PLATEOU 

10  TYME(J)=TYME(J)-TMID2 

K-1 

OUTPUT  UEIGHT  LOSS  IN  THIS  PLATEAU 

UTLOSS=ABS (P (K0UNT2) -P ( 1) ) 

RATE  =UTLOSS/ ( TYME ( K0UNT2 ) -TYME ( 1) ) 

IF  (NF ILEB . GT.  6)  UR  ITE(NF  ILEB,  95 1 ) LJTL05S.  RATE 
IF (NPR INT. GE . 3) UR ITE  CNPR INT, S5 1 ) UTL0S3. RATE 

951  FORMATC/'  UEIGHT  LOSS  FOR  THIS  PLATEAU E 1 0 . 3, ' MICROVOLTS 

UITH  AVERAGE  RATE  OF',E10.3,'  MICROVOLTS  PER  SECOND'/) 

GO  TO  20 

CALCULATE  REGRESSION  FIT  FOR  VARIOUS  FACTORS 

30  REWIND  NFILED 
DO  35  J=1,K0UNT2 

READ  (NFILED, 600) DUMMY, (PASS(L)  ,L=1,NFACT2) 

P(J)=PASS('KK) 

' 35  SP(J)=PASS(KK+1) 

20  I=KANDU(K) 

CALL  REGRES  ( T'r'ME , P , SP , K0'JNT2 , NTERMS  ( I ) , M,  0 , YF I T 
8.,  A02  ( I ) , A2  ( 1 , I ) , S I GA02  (I ) , S I GA2  ( 1 . I ) , R,  RMUL,  RCH I , FTEST) 

CALL  RESIDS(TYME,P,SP,YFIT,K0UNT2) 

OUTPUT  COEFFICIENTS  OF  REGRESSION  FIT  TO  FACTOR  VARIATION 

II=NTERMS(I) 

IF(NPRINT.LT.3)G0  TO  750 

WRITE (NPR INT, 700) I . A02( I) ,SIGAG2( I) 

IF ( 1 1, GT.0) UR ITE (NPR INT, 702) (A2(JJ,  I),3IGA2(JJ, I),JJ=1, II) 
700  F0RMAT(/'  POLYNOMIAL  COEFFICIENTS  FOR  FACTOR',  12 
6./I0X,'COEFF',  10X, 'SIGMA' 
fc/(2E15.8)) 

702  F0RMAT(2E15.8) 

UR ITE (NPR I NT, 952) RCH I, FTEST, RMUL 
IF(II.GT.0)URITE(NPRINT,953) (IJ,R(IJ), IJ=1, II) 

952  FORMAT(/'  REDUCED  CHI  SQUARE=' ,F10.2 
8./'  FTEST  =',E10.2/'  RMUL  =',E10.2) 

953  F0RMAT('  R('.I1,')  =',E10.2) 

750  1F(NFILEB.LE.6)G0  TO  760 

URITE(NF ILEB, 700) I , A02 ( I ) , S IGA02 ( I ) 

IF(II.GT.0)URITE(NFILEB,7O2) ( A2 ( JJ, I ) ,SIGA2 ( JJ, I ) , JJ=  1 , 1 1 ) 
URITE(NF ILEB, 952) RCH I, FTEST, RMUL 
IF(II.GT.0)URITE(NF1LEB,953) (IJ,R(1J),IJ  = 1,  II) 

760  CONTINUE 


KK=2>«+1 

K=K+1 

■ IF(K.LE.NFACTS)GO  TO  30 
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CHECK  E>aRAPOLATION  PRECISION  FOR  ALL  FACTORS  FOR  SECOND  PLATEAU 


CALCULATE  EXTRAPOLATION  TIMES 
65  TIMEX=(TPLAT2(l)-TPLATl(2))/2. 

SET  EXTRAPOLATION  TIME  OF  200  SECONDS  FOR  CHECKING  FIRST  PLATEAU  IN  EXPT. 
I.E.,  ASSUME  400  SECONDS  BETUEEN  PLATEAUS  FOR  FIRST  PASS  THROUGH 

IFCNPLAT.EQ. 1)TIMEX=200. 

EXTRAPOLATION  TIMES  ARE  SYMMETRICAL 

TIMES ( 1 ) =TPLAT1 ( 1 ) -TMID 1-TIMEX 
TIMEF( 1) =TPLAT! (2J-TMID1+TIMEX 
TIMES (2) =TPLAT2(1 ) -TMID2-TIMEX 
TI MEF ( 2 ) =TPLAT2 ( 2 ) -TM I D2+T I MEX 

IF(NPRINT.GE.3)URITE(NPRINT,780)  (TIMEB(  I)  ,TIMEF(D  , I = 1 ,2)  ,TI[-EX 
&,TPLAT1,TPLAT2 

780  FORMATC//'  EXTRAPOLATION  TIMES  ABOUT  MID  POINT  OF  PLATEAU' 

8., '  FOR  POLYNOMIALS' 

6./'  FIRST  PLATEAU  =',2F10.0 
E./'  SECOND  PLATEAU  ='.2F10.0 

8./"  REAL  TIMES  ARE'.F9.0,'  SECONDS  ON  EITHER  SIDE  OF' 

8./2F10.0,'  FOR  FIRST  PLATEAU,  AND' ,2F  10 . 0, ' FOR  SECOND  '/) 
IF(NFILEB.GT.6)IJR1TECNFILE3,780)  CTIMEBC  D ,T1NEF(  n , 1 = 1,2) -TIMEX 

8., TPLAT1,TPLAT2 

TEST  THE  TRENDS  IN  THE  LEIGHT  AND  FACTORS  TO  SEE  IF  PRECISION 
IN  EXTRAPOLATED  VALUES  IS  ADEQATE 

NGOODF=0 

NGOODR=0 

MERRTE=0 

MERFAC=0 

OUTPUT  HEADING  FOR  PRECISION  LISTINGS 

IF(NPRINT.GE.3)URITE(NPRINT,770)  ^ 

IF(NFILEB.GT.6)L'RITE(NFILEB,770) 

770  FORMATC//'  EXTRAPOLATED  VALUES  AND  SIGMAS  BACK  AND  FORUARD' 

8., '  IN  TIME' 

. 8./'  THEN  PRECISIONS,  = BACK,  FORUARD  AND  REQUESTED'/) 

DO  80  J=1,NFACTS 
I=KANDUCJ) 

L=IFDER(J) 

OBTAIN  EXTRAPOLAIED  QUANTITIES 

CALL  EXT?0L(A02CI),A2(1, I),SIGA02(I),SIGA2(1, I) 
e..NTERMSCI) 

8., TIMEFC2),TIME9C2),FACT2C2, 1),SIGF2(2, 1),FACT2(1,  I),SIGF2(1,I) 

8., RATE2(2,  I ) , S IGR2 (2, 1 ) ,RATE2(  1 , 1 ) , S IGR2 C 1 , I ) 
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6., PRECFF ( I ) , PRECFB ( I ) , PRECRF ( I)  , PRECRB ( I ) , L, M) 

C TEST  PRECISION  IN  RATES 

^ IFCL.EQ.0)  GO  TO  66 

C OUTPUT  PRECISION  IN  RATES 

^ IF(NFRINT.GE.3)IJRITE(NPRINT,775)NR.  I.RATE2C1,  I)  ,SIGR2(1,  I) 

a,RATE2<:2,  n ,SIGR2(2,  I ) . PRECRB  ( I)  , PRECRF  (I ) , PRECR  ( I) 

775  F0RmTCA2,  I1,2(2X,2E10.3),3F8.0) 

IF(NFILED.GT.6)l.JPITECNF]LE3,775)NR.  I , RATE2 (1 . I ) , S IGR2 ( 1 , I) 

8., RATE2(2,  I)  ,SIGR2(2,  I)  ,PRECRB(I)  ,PRECRF(n',PRECR(I) 

C 

c flag  which  rates  are  measured  adequately 

c 

MERIT=0 

IF((PRECRFn)-PRECR(I))  .GT.  (-1  .E-01)  . AND.  CPRECRB  ( D-PRECR(I ) ) 

8., GT.  (-l.E-01))MERIT=l 
IFCMERIT.EQ.  DCALL  ESETCMERRTE,  I) 

NGOODR=NGOODR+MERIT 

C 

c TEST  FACTOR  LEVELS 

C 

66  MERIT=0 

C 

c OUTPUT  PRECISION  IN  FACTORS 

C 

1F(NPRINT.GE.3)U*RITE(NPRINT,775)NF,  I,FACT2(1,  I),SIGF2(1,  I) 

8.,  FACT2 (2,  I ) , S IGF2 C2, 1 ) , PRECFB ( I) , PRECFF ( I) , PRECF  ( I ) 
IF(NFILEB.GT.6)LuRITE(MFILEB,775)NF,  I,FACT2(1.  n,SIGF2(l.  I) 

8.,  FACT2  ( 2,  I)  , S I GF2 ( 2 , I ) , PRECFB  ( I ) , PRECFF  ( I ) , PRECF  ( I ) 

C 

C FLAG  WHICH  FACTORS  ARE  OF  ADEQUATE  PRECISION 

C 

IF((PRECFF(I)-PRECF<:i))  .GT.  (-1  .E-Ol)  .AND.  (PRECFB ( I ) -PRECF ( I ) ) 

8., GT.  (-l.E-01))MERIT=l 
IFCMERIT.EQ.  DCALL  BSETCMERFAC,  I) 

NGOODF=hlGOODF+MER  IT 

80  CONTINUE 
C 

C ARE  ALL  MEASUREMENTS  OF  ADEQUATE  PRECISION? 

C 

C IF  SO,  JUMP  OVER  PRECISION  RESETTING 

C 

IF (NGOODF . EQ . NFACTS . AND . NGOODR . EQ . NRATES) RETURN 

C 

C :F  NOT,  CONTINUE  MEASURING  PLATEAU  IN  PLATTO  UNLESS  STORAGE 
C ARRAY  (250  POINTS)  OR  TIME  LIMIT  (TIMLIM)  HAS  BEEN  EXCEEDED 

C NSTOP  IS  FLAG,  =Q  FOR  CONTINUE,  =1  OR  2 FOR  DO  NOT  GO  BACK  TO  PLATTO 

C 

IF (NSTOP. HE. 0) GO  TO  570 

IFGO  = 1 

RETURN 

C 

C CHANGE  PRECISION  SPECIFICATIONS  BECAUSE  OF  FAILING  CASES 
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570  IF(NPRINT.GE.3)U]RITE(NPR1NT.  150) 
IF(NFILEB.GT.6)URITE(NFILEB. 150) 

150  FORMBK//'  NELJ  PRECISION  LEVELS  FROM  PRECIS' 
8./'  FACTOR  LEVEL  RATE  HEU?' ) 


DO  130  J=1,NFACTS 
MERIT=1 

MERYT=! 

I=KANDU(J) 

L=IFDER(J) 

IFCBTESTCMERFAC. I))GO  TO  910 
MERIT=0 

PRECF  ( I ) = ( (PRECFF  ( I ) +PRECFB  ( I ) ) /2 . ) . 9 


910  IF(L.EO,0)GO  TO  135 

IFCBTESTCMERRTE, I))GO  TO  135 
MERYT=0 

PRECR  (!)=((  FRECRF  ( I ) +PRECRB  <1 ) ) /2 . ) >♦« . 9 
135  CONTINUE 


IF(NPRINT.GE.3)URITECNPRINT,  160)  I^PRECFd) 

PRECR (I ) , NUORD  a-ER IT+1 ) , NUQRD (MERYT+1 ) 

IF (MF I LEB . GT . 6 ) UR  I TE ( NF I LEB , 1 £0 ) I , PRECF ( I ) , PRECR (I ) , NUQRD ( 
8.MER  I T+ 1 ) , NUORD  ( MER YT+ 1 ) 

160  FORMAT(I7.2F3.3,2X,2(2)<,A4)) 

130  CONTINUE 
RETURN 
END 
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SftSSM 
PRIME  PROG 
$FORT 
STRGT  16 

C XoMo)oralcH>k>Mo<lc>MoMc<oMototo!otc<oMoMotoWo<>Wo(okJ^DMo>=5o(cK>(^^ 

c 

SUBROUTINE  PRIME 

C 

Q X3M'0|<>f<^ioK>K>K5to(o;oK:iK5K>toK>M<5toMoK>K>f»K>foK5tol<>toMoK>to!o|cloMo)oK>K>foK5K5^^ 

C SUBROUTINE  TO  PLLOU  CHANGES  IN  INITIAL  VALUES  OF  CONTROL  VARIABLES 
C NEEDS  COMMON  BLOCKS: 

C COMMON  /BIAS/ 

C COMMON  /DERIVE/ 

C COMMON  /FACTR/ 

C COMMON  /lO/ 

C COMMON  /PARAM3/ 

C COMMON  /PLAT/ 

C COMMON  /MID AST/ 

C COMMON  /REGRES/ 

C COMMON  /UriEN/ 

C 

C AND  SUBROUTINE  THMCPL 

C 

C COMMON  STORAGE  IS  DEFINED  VIA  ARRAY  =DUMP= 

COMMON  DUMPCS00) 

C 

C COMMON  /BIAS/ 

C 

DIMENSION  BIASV(8),SIGBV(8) 

EQUIVALENCE  (B lASVC 1 ) , DUMP ( 1 ) ) , (SIG5VC 1) ,DUMP(9) ) 

C 

C COMMON  /DERIVE/ 

C 

EQUIVALENCE  (PRECE, DUMP ( 131) ) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KANDU(S). IFUNCT(8) , IFDER (8) , INPUT(8) , SCALE (8) 
&,NRANGE(S).NREhDS(8) , NTERMS (8) , CHTEST(S) , PTIME (S) 
&,PRECF(8),FRECR(S) ,AT(4) 

EQUIVALENCE  C NTHCP, DUMP ( 17) ) , CKANDU ( ! ) , DUMP ( 13) ) 
nFUNCT(l),DUMP(26)),  (IFDER  ( 1 ) , DUMP  (34) ) 

8.,  (1NFUT(1),DUMF(42)),  (SCPLE(1),DUMP(50)) 

8.,  (NRANGE(1)..DLIMP(58)),  (NREADS  C 1 ) . DUMP  (66) ) 

8.,  (NTERM3(1),DUMP(74)),  (CHT£ST(1).DUM?(S2)) 

(PTIME( 1) ,DUMP(S8) ) > (PRECF( 1 ) . DUMP (98) ) 

8.,  (FRECR  (1),  DUMP  ( 106) ).  (NFACTS,  DUMP  (1  14)) 

8.,  (NRATES.DUMPCllS)),  (TIMLIM,DUMP(  116)) 

&, (NBADS,DUMP( 1 17) ) . ( INTVAL,DUMP ( 1 IS) ) 

8.,  (AT(1), DUMP (119)),  (TSCALE, DUMP (130)) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI ,DU^P(  123) ) . ( NTTiD, DUMP ( 124) ) 

8.,  (NPRINT,DUMP(  125) ) , (NF ILEA. DUM-" ( 125) ) . (NFILE3.DUMPC  127) ) 

8.,  (NF1LED,DUMP(128)) . <NF1LEE.DUMP(  129) ) 
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c 

c comoN  /niDPiSR/ 

c 

INTEGER>!:2  OUTC20)  ,REPLY(20)  ,N'JM(  10)  , JUNK2C 18) 

C 

EQUIVALENCE  (OUTCl) , DUMP (140) ) , (REPLYCl ), DUMP ( 160) ) , (NUHC 1) 

8.,  DUMP ( 180) ) , ( JUNK2C  1 ) ,0UT(3) ) , (NF ILTR, DUMP  ( 190)  ) 

C 

C COMMON  /PARAMS/ 

C 

DIMENSION  AOl (8) ,A02(8) .SIGAOl (8) ,SIGA02(B) 

R,A1<4,6) ,A2(4,8),SIGA1 (4,8) ,SIGA2(4,8) 

8., FACT1  (2,8)  .SIGFl  (2,8) , RATE  1 (2,8)  .SIGRl  (2,8) 

8c,FACT2(2,8)  ,SIGF2(2,8)  ,RATE2C2,8),SIGR2(2,S) 

&,TIMEF(2).TIMEB(2) 

EQU I VALENCE  ( AO  1 ( 1 ) , DUMP (208 ) ) , ( A02 ( 1 ) , DUMP (203) ) 
(SIGA01(1),DUMP(216)), (SIGA02(1),DUMP(224)) 

&,  (Aid,  1), DUMP (232)),  (A2(l,  I), DUMP (264))  - 
8c,  (SIGAld,  1),DUMP(2S8)),  (3IGA2(1,  1),DUMP(323)) 

EQUIVALENCE  (FACTl ( 1 ,1 ) , DUMP C3S0) ) , (S IGFl ( 1 , 1 ), DUMP (376) ) 

8. , ( RATE  1 (1 , 1 ) , DUMP  ( 332 ) ) , ( S I GR 1 ( 1 , 1 ) , DUMP  ( 483 ) ) 

&, (FACT2 (1,1), DUM^ ( 424) ) , (3 IGF2  Cl , 1 ) , DUMP (443) ) 

8c,  (RATE2d,  1),  DUMP  (455)) , (S IGR2  ( 1 . 1 ).  DUMP  (472) ) 

8.,  (KOUNTl, DUMP (488) ) , (K0UMT2, DUMP (433)  ) 

EQU I VALENCE  ( T I MEF ( 1 ) , DUMP ( 5C 3 ) ) , ( T I MEB ( 1 ) , DUMP ( 532 ) ) 

8c,  (DAY,  DUMP  (504) ) , (HDTIME,  DUMP  (535)  ) 

8c,  (SKIP, DUMP (536) ) , (RATMIN,DUM? (507) ) , (RA7MAX,DUM? (503)  ) 

8c,  (TJUMP,DUMP(509)) 

C 

C COMMON  /PLAT/ 

C 

DIMENSION  RCHK8) 

EOU 1 VALENCE  ( LPLAT, DUMP ( 5 1 0 ) ) , ( NEL APS , DUMP (511)) 

8c,  (NFIR3T,DUMP(512)),  (NCHI,DUMP(513))  . (N3T0P,  DULP  (5 14) ) 

8c,  (START,DUM?(515) ) , (RCHl  ( 1 ) , DUi-p  (5 IS) ) 

8c,  (MOTHER, DUMP (524) ) , (KST0RE,DUMP(525)  ) 

8c,  (ENB3IG,DUMP(526) ) 

8.,  (T0IM4,DUMP(527) ) , (FACTIM, DUMP (528) ) , (EQUIL,DUMP(529)  ) 

C 

C COMMON  /REGRS/ 

C 

DIMENSION  M(5),R(5),YFIT(253) 

EQU  I VALENCE  ( M ( 1 ) , DUMP  ( 530 ) ) , (R  ( 1 ) , DUMP  ( 535  ) ) , ( 'fP  1 T ( 1) , DUMP  (540 ) ) 

C 

C COMMON  /UHEN/ 

C 

DIMENSION  TPLAT1(2),TPLAT2(2),NTYME(3) 

EQUIVALENCE  (BEG IN, DUMP (SSO) ) , (7PLAT1 ( 1 ), DUMP (881) ) 

8c,  (TPLAT2  ( 1 ),  DUMP  (883) ),  (NTYLE(l),  DUMP  (865)) 

C 

C 

c 

c 

c 

DIMENSION  NTITLE(72),FTirC(4) 

C 
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READ  AND  LRITE  TITLE 
URITECNTTYO. 1) 

1 FORMATC'  GIVE  TITLE  FOR  RUN,  2 LINES,  72  CHARS/LINE  nAXIMUn') 
READ(NTTYI,2)NTITLE 

2 F0RMAT(3cA2) 

UR  I TE ( NTTYC . 2 ) NT ITLE 

OPTIONAL  READ  OF  CONTROL  PARAMETERS  FROM  SAVE- FILE 


NFILEC=0 

URIT£(NTTYO,70) 

70  FORMATC'  READ  PARAMETERS  FROM  SAVE  FILE?' 

&/'  0=HO,  1=YES,  GIVE  IN  II  FORMAT') 

READ(NTTYI,75)J 
75  FCRMAT(Il) 

IF(J.EQ.0)G0  TO  80 
URITE(NTTY0,77) 

FORMATC'  GIVE  FILE  NUMEER  IN  12  FORMAT' 

&/'  PROGRAM  IJILL  THEN  PAUSE,  GIVE  CONTINUE  UHEN  READY' 

&/'  FILE  UILL  EE  REL'OUND  FIRST') 

READ(NTTYI,73)NFILEC 
I FORMATC 12) 

PAUSE  5 
REUIND  NFILEC 

READCNFILEC,500)NTHCP,TSCALE,S:<IP,'<ANDU,  IFUNCT,  IFDER,  INPUT,SCALE 
&,NRANGE 

8.,  NREADS,  NTERM3,  CHTEST,  PTIME,  PRECF.  PRECR,  NFACTS,  NRATES,  TIML IM,  NBADS 

8. ,  EQU I L , I NT\'AL , ENDS  I G . RATM I N , R ATMAX,  TJUMP , AT 

8. , NTTY I , NTTYO , NFR I NT,  HF I LEA . HF I LE5  , NF I LED . NF I LEE 

8., M.PRECE 

URITECNTTYO. 500-) NTHCP,TSCALE, SKIP, KANDU,  IFUNCT,  IFDER,  INPUT, SCALE 

8., NRANGE 

8.,  NREADS,  NTERMS.  CHTEST,  PTIME,  PRECF,  PRECR,  NFACTS,  NRATES,  TIML  I M,  NBADS 

8. ,  EQU  I L , I NTVPL , ENDS  I G , RATM  I H . RATMAX,  TJUM? , AT 

8. ,  NTTY  I , NTTYO , NPR I NT,  NF  I LEA , NF  I LEB , NF  I LED , NF  1 LEE 
&,M,PRECE 

OPTIONAL  CHANGE  OF  CONTROL  PARAMETERS 

80  CONTINUE 

URITECNTTYO, 10) 

10  FORMATC'  DO  YOU  UANT  TO  CHANGE  ANY  CONTROL  PARAI^TERS?' 

8./'  IF  NOT,  GIVE  PARAMETER  CF  ZERO' 

8./'  IF  SO,  ENTER  PARAMETER  NUMBER,  ELEMENT  IN  PARAMETER  ARRAY,' 

8./'  NEU  VALUE  IN  !3,I3,F7.3  FORMAT' 

8./'  INTEGER  VALUES  LULL  BE  INTEGERISED,  GIVE  NEU  VALUE  UITH' 

8./'  DECIMiAL  POINT') 

GO  TO  60 

50  URITECNTTYO, 52) 

52  FORMATC'  AHIOTHER  CHANGE?') 

60  READCt!TTYI,52)N,I,VALUE 
62  F0RMATC2I3.F7.3) 

IFCN.LE.OGG  TO  400 
1FCN.GT.35)G0  TO  50 
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N VALUE  = I F I X ( VPILUE+S I GN  ( 3 . 5 , VALUE ) ) 

GO  TO  (100,103.106.104,103,109.110,123,136,135,136,140,153,160 

8.,  170,  180,  182,  190 

8.,  192,  193.  194,  196,  197,  198, 199,203.213,220,230,240,250,255,256,303 

8..  260) 

8..N 


CHANGE  THERnOCOUPLE  TYPE 

100  URITECNTTYO, 101) 

101  FOR'^AK'  GIVE  THERnOCOUPLE  TYPE  AGAIN  (A3  A LETTER)') 
READ(NTTVI, 132)NTHCP 

102  FORnAT(Al) 

GO  TO  50 

CHANGE  SCALE  OF  THERflOCOUPLE  TO  DC  VOLTAGE  CON'TERSION 

103  TSCALE= VALUE 
GO  TO  50 

CHANGE  TIME  TO  SKIP  BETLEEN  READINGS 
106  SKIP=VALUE 
GO  TO  50 

SET  UP  WHICH  EXPERIMENTAL  VARIABLES  ARE  TO  BE  FACTORS  (CHANGED) 

104  KANDU(I)=NVALUE 
GO  TO  50 

SET  FUNCTION  OF  RAW  READING  TO  BE  USED  (VIA  FACFUN) 

108  IFUNCT(I)=NVALUE 
GO  TO  53 

FACTORS  FOR  WHICH  DERIVATIVES  ARE  TO  BE  USED 

109  IFDER(I)=NVALUE 
CHANGE  ANALOG  SCANNER  INPUTS 

110  INPUT(I)=NVhLUE 
GO  TO  50 

CHANGE  SCALE  VALUES 
120  SC  ALE(  DEVALUE 
GO  TO  50 
CHANGE  NRANGE 
130  NRANGE ( I) =N VALUE 
GO  TO  50 

CHANGE  NUMBER  OF  DVM  READINGS  MAKING  UP  AVERAGE  FOR  EACH 
FACTOR 

135  NREADS(I)=NVALUE 
GO  TO  50 

C CHANGE  NUMBER  OF  TERMS  IN  POLYNOMIAL  FIT 

136  NTERMS(1)=MIN0(NVALUE,5) 

GO  TO  50 

C CHANGE  CHI  SQUARE  VALUES  FOR  EQUILIBRIUM  IN  FACTORS 
140  CHTEST(I)=VALUE 
GO  TO  50 

C CHANGE  MAX  TIME  FOR  FACTOR  TO  TAKE  TO  STEADY  DOWN 
150  PTIME(I)=VALUE 
GO  TO  53 

C CHANGE  MIN  PRECISION  IN  FACTOR  READINGS 
160  PRECF(I)=VALUE 
GO  TO  50 

C CHANGE  MIN  PRECISION  IN  RATES 
170  PRECR(  DEVALUE 
GO  TO  50 

C CHANGE  NUMBER  OF  FACTORS 
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180  NFflCTS=N VALUE 
GO  TO  50 

C CHANGE  NUMBER  OF  RATES 
182  NR ATES=N VALUE 
GO  TO  50 

C CHANGE  TIME  LIMIT  FOR  PLATEAU 
190  TIhLIM=VALUE 
GO  TO  50 

C CHANGE  NUMBER  OF  BAD  POINTS  TO  ALLOW  BEFORE  PLATEAU  STABILISES 

192  NBADS=NVALU£ 

GO  TO  50  . ' 

C CHANGE  EQUILIBRIUM  TIME  FOR  SETTLING  DOWN  OF  NEW  FACTOR  LEVELS 

193  EQLIIL-VALUE 
GO  TO  50 

C NUMBER  or  READINGS  BETWEEN  CHECKS  FOR  ADEQUATE  PRECISION 

194  INTVAL=NVALUE 

GO  TO  50  • . 

C NUMBER  OF  POOLED  SIGMAS  SUCCESSIVE  WEIGHT  READINGS  MUST  DIFFER  BY 
C IF  TERMINATION  OF  EXPERIMENT  IS  NOT  TO  OCCUR  IN  PLATTO 

196  ENDSIG=VALUE 
GO  TO  50 

C MINIMUM  RATE  TO  ALLOW  BEFORE  INCREASING  TEMPERATURE  BY  TJUMP 

197  RATMIM=VALUE 
GO  TO  58 

C MAXIMUM  RATE  TO  ALLOW  BEFORE  DECREASING  TEMP  BY  TJUMP 

198  RATMAX=VALUE 
GO  TO  50 

C TEMPERATURE  INCREMENT  WHEN  MIN  RATE  REACHED 

199  TJUMP = VALUE 
GO  TO  50 

C CHANGE  IHPUT/OUTPUT  UNITS 

200  NTTYI=NVALUE 
GO  TO  50 

210  NTTVO=H VALUE 
GO  TO  50 

220  NPRINT-HVALUE 
GO  TO  50 

230  NFILEA=NVALUE 
GO  TO  50 

249  NFILEB=NVALUE 
GO  TO  50 

C CHANGE  SAVE  UNIT 

250  NFILEC--NVALUE 
GO  TO  50 

C CHANGE  SCRATCH  FILE  UNIT 

255  NFILED=NVALUE 
GO  TO  50 

C CHANGE  OUTPUT  FILE  FOR  ACTIVATION  ENERGIES 

256  NFILEE=NVALUE 
GO  TO  50 

C CHANGE  POLYNOMIAL  EXPONENTS 
300  M(I)=NVALUE 
GO  TO  50 

C CHANGE  PRECISION  IN  ACTIVATION  ENERGY 
260  PRECE=VALUE 
GO  TO  50 
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400  CONTINUE 


URITE(NTTYO.500)NTHCP,TSCflLE,SKIP,KPlNDU,  IFUNCT,  IFDER,  INPUT,SCftLE 
R,NRfiNGE 

8.,  NREflDS,  NTERMS,  CHTEST,  PTIhE,  PRECF,  PRECR,  NFfiCTS,  NRflTES,  TIML IM,  N5PDS 
EQU I L , I NTVfiL , ENDS  I G , RATT'l  I N , RPTmX,  TJUMP , PT 

8.,  NTTYI , NTTYO,  NPR IN7,  NF ILEP,  NF ILEB,  NF ILED,  NF ILEE 
&,M,PRECE 

URITE(NTTYO,430) 

430  FORKPTC'  CHPNCE  FOR  FURTHER  CHPNGES?  (0=NO, 1 =YES) ' ) 

REPD(NTTYI,?5)J 
IF(J.NE.0)GO  TO  83 

IF(NPRINT.GE.3)URITE(NPRINT,925) 

925  FORIiPTC'  T) 

IF(NPRINT.GE.3)URITE(NPRINT,2)NTITLE 
IF(NF1LEP.GT.6)URITE':NFILEP,2)HTITLE 
I F ( NF I LEB . GT . S ) UR  I TE  C NF I LE3 , 2 ) NTT  TLE 
IF(NFILEE.GE.6)URITEi:NFILEE,2)NTITLE 

GET  THERMOCOUPLE  COEFFICIENTS 

CPLL  THMCPL(NTHCP,P.T) 

OPTION  OF  STORING  PRIMED  VALUES  OH  SPVE  FILE 
URITE(NTTYO,450) 

450  F0RMA7('  OUTPUT  PARAMETERS  ON  SAVE  FILE' 

8./'  e=HO,l=YES,  IN  II  FORMAT') 

READ(NTTYI,75)J 
IF (J.EQ.0) GO  TO  470 
URITE(NTTY0,77) 

READ(NTTYI,78)NFILEC 
PAUSE  6 
REWIND  NFILEC 

URITE<NFILEC,5G0)NTHCP,TSCALE,SKIP,KANDU, IFUNCT, IFDER, INPUT,SCALE 

8., NRANGE 

8.,  NREADS,  NTERMS,  CHTEST,  PTIME,  PRECF,  PRECR,  NFACTS,  NRATES,  TIML  IM>  NBADS 

8., EQUIL,  IHTVAL,ENDS!G,RATMlN,RATMA>:,TJUrP,AT 

8.,  NTTYI , NTT^TI,  NPR INT,  NF  ILEA,  NF  ILE3,  NF  ILED,  NF  ILEE 

8., M,PRECE 
470  CONTINUE 

OUTPUT  CURRENT  VALUES 

1FCNPRINT.lt. 3)G0  TO  455 

URITECNPRINT,580)NTHCP,TSCALE,SKIP,KANDU, IFUNCT, IFDER, INPUT,SCALE 

8., NRANGE 

8.,  NREADS,  NTERMS,  CHTEST,  PTIME,  PRECF,  PRECR,  NFACTS,  NRATES,  TIML IM,  N3ADS 

8. ,  EQU I L , I NTVAL , ENDS  I G , R ATM  I N , R ATMAX,  TJUMP , AT 
e.,NTTYI,NTT^G,HPRINT,NFILEA,NFILEB,NFILED,NFILEE 

8i,M,  PRECE 

500  FORMATC/'  PARAMETERS  INITIALISED  AS  FOLLOWS: ' 

8./'  NTHCP  = ',9X,A1,3X, 'TSCALE  =' ,F3.2,3X, 'SKIP  = ' ,F5.0 

8./'  FACTORS  ^',817 


A77 


&/' 

FACFUN 

= '.817 

&/' 

DERI VS 

“ '.817 

INPUTS 

= '.817 

SCALES 

= '.SF7.3 

8./" 

NRANGE 

= '.817 

8./" 

NREADS 

= '.817 

8./' 

NTERN3 

= '.817 

CHI  TEST='.GF7.0 

8./' 

PTIMES 

= '.8F7.1 

8./' 

PRECF  = 

'.SF7.2 

8./' 

PRECR  = 

’ .SF7.2 

8./' 

NFACTS 

= '.  13 

8..' 

NRATES 

= ' . 13 

8i.  ' 

TIMLin 

=' .F5.0 

8..' 

BAD  PTS 

= '.  13 

8., '  EQUIL  =',F5.0 
e./'  CHECKS  =',I4 

8., '  END  SIG  ='.F5.1 

8., '  RSTMIN  =',F6.  1 

8.. '  RATMAX  ='.F6.  1 

8.. '  TJUMP  ='-F5.1 

8./'  TC  TO  D =',4E14.5 

8./'  !0  UN!TS  = ',7I7 

S.y'  POLNOn  EXP  = ',  15.417 

8=/'  PRECISION  IN  E ACT  =',F7.2) 

455  IF(NFILEA.LE.6)G0  TO  4S0 
URITE(NFILEA.2)NTITLE 
460  IF(NFILEB.LE.6)G0  TO  618 

URITE(NFILEB.508)NTHC?,TSCAEE.SKIP.KANDU, IFUNCT, IFDER. INPUT. SCALE 

8.. NRANGE 

8.. NREADS.NTERnS.CHTEST.PTiriE.PRECF.PRECR.NFACTS.NRATES.TIi-K_IM.NBADS 

8. . EQU I L . I KTVAL . ENDS  I G . RATM I N . RATI1AX.  TJUT;?.  AT 


8. .  NTTY I . NTTYO . NFR I NT.  NF I LEA . NF I LEB . NF I LED . NF I LEE 
8c.M.PRECE 
610  CONTINUE 
RETURN 
END 
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SPSSM 

REGRES  PROG 
SPORT 
STRGT  16 
C 

c #5MoWo<oMo(o»ofoK3|C3|o|o!C3Mo(o)cjo|oWo!o|o(o(oJcMoK>K»K>K>K>|c4o|o^^ 

c 

SUBROUTINE  REGRES  CX, Y.SIGmY^NPTS-NTERnS.n.MODE, YFIT,aO,R.SIGrPO, 
2 SIGMAA.R,RNUL,CHISQR,FTEST) 

C 

Q **:Mok5k5|oK5toio|oic4ok>toK5'oK5ioMc>K>tO!oMcfoioiofo4oK>fc4o<>ioioK5MoK3(oK3W«^^ 

c 

C NEEDS  THE  FOLLOUING  FUNCTION  PiND  SUBROUTINE: 

C FCTTI 

C MATINV 

C 

c 

DOUBLE  PRECISION  fiRRftY,SUn, YMEfiN,SIGm,CHISQ,XMEPiN,SIGr^X 
D I MENS  ION  X ( NPTS ) . V ( NPTS)  . S I GM.q  Y ( NPTS ) , h ( 5 ) . YF I T C NPTS ) 
Ei,SIGMAfi(5),R(5;,A(5) 

DI^ENSION  UEIGHT(250),XMEfiN(5),SIGM.qX(5),ftRRAY(5,5) 


C 

c 

c 


10 


20 

30 

C 

C 

c 


40 

50 


60 

70 

60 

90 


INITIALIZE  SUMS  AND  ARRAYS 


SUM=0. 

YMEAN=0. 

SIGMA=0. 

CHISQ=0. 

RMUL=0. 

DO  10  1=1. NPTS 
YFIT(I)=0. 

IF  (NTERM3.LE.0)  GO  TO  30 
DO  20  J=1.NTERMS 
XMEAN(J) =0. 
siGi'iAX(j)=a; 

R(J)=6. 

A(J)=9. 

sigmaa«:j)=0. 

DO  20  K=l.NTERrS 
ARRAY(J.K)=0. 

CONTINUE 


ACCUMULATE  LEIGKTED  SUMS 

DO  110  1=1. NPTS 

IF  (MODE)  40.70.80 
IF  (Y(I))  60.70.50 
UEIGHT(I)=1./YCI) 

GO  TO  93 

LEIGHT(I)=l./(-Y(I)) 

GO  TO  90 
UEIGHT(I)=1. 

GO  TO  90 

UE I GHT ( I ) = 1 . /3 1 GMA Y (I ) 5«c»^2 
•SUM=SUM+LEIGHT(I) 

YIE  AN = YrE  AN+lJE  I GHT  (I ) >i<Y  ( I ) 
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IF  (NTERMS.LE.0)  GO  TO  110 
DO  100  J=l,NTERnS 

100  XMEAN(J)=XMEmKJ)+UElGHT(I)5KFCTM(X,  I,J,n.NPTS) 

110  CONTIMUE 

YMEftN=YnEfiN/SUM 
IF  (NTERM3.LE.0)  GO  TO  130 
DO  123  J=1,NTERMS 
120  XMEPlN(J)=XnEfthKJ)/SUri 

133  CONTINUE 

FNPTS=N?TS 
UMEfiN=£UN/FNPT3 
DO  143  I=1,NPTS 

140  UEIGHT(I)=UEIGHT(I)/L'nEftN 

C 

C ACCUMULATE  MATRICES  R AND  ARRAY 

C 

DO  150  I=1,NPTS 

S I GMA  =S  I GMA+UE I GHT  C D ( Y ( n -YME AN ) ^2 
IF  (NTERM5.LE.0;  GO  TO  160 
DO  150  J=1,NTERMS 

SIGMAX(J)=SIGMAX(J)+UElGHT(n>^(FCTN(X.  I,J.M.NPTS)-XMEAN(:J))>ici«2 
R(J)=R(J)+UEIGHT':I)>k(FCTN(X.  I,J>M,NPT3)-XrEAN(J))>i<(Y(I)-YMEAN) 
DO  150  K=1,J 

ARRAY(J,K)=P.RRAY(J.K)+l!EIGHT(I)>t«(FCTN(X,  1,J,M,NPTS)-XMEAN(J)) 

2 *(FCTN(X,  I,K.M,NPTS)-XMiEANCK)) 

150  CCNTINUE 
160  CONTINUE 

FREE1=NPTS-1 

SIGMA=DSQRT(SIGMA/FREE1) 

IF  (NTERM3.LE.0)  GO  TO  180 
DO  170  J=1,NTERMS 

SIGMAX(J)  =DSQRT(SIGMAX(J) /FREED 
R(J)=R(J)/(FREE1>'-SIGMAX(J)^SIGMA) 

DO  170  K = DJ 

ARRAY(J.K)=ARRAY(J.K)/(FREEl^-SIGMAXtJ)>KSIGMAXCK)) 

170  ARRAYCK,  J)=ARRAY(J.1<) 

180  CONTINUE 

C 

C INVERT  SVTIMETRIC  MATRIX 

C 

IF  (NTERMS.LE.0)  GO  TO  203 
CALL  MATINV  (ARRAY. NTERM3,DET) 

IF  (DET)  200.1S0.20O 
190  AO=0. 

SIGMAO=0. 

RMUL=0. 

CHISQR=0. 

FTEST=0. 

GO  TO  330 
C 

C CALCULATE  COEFFICIENTS.  FIT,  AND  CHI  SQUARE 

C 

200  AO=YMEAM 

IF  (NTERMS.LE.0)  GO  TO  230 
DO’ 220  J = 1.NTERMS 

DO  210  K=l.NTERrE 
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ft  ( J ) •=  A ( J ) +R  ( K ) Y ( J , K ) 

fi(J)*=A(J)>HSIGra/SIGr-!OX(J) 

A0'=A0-A(J)5KXMEAN(J) 

DO  220  I=1,NPTS 
220  YFIT(I)=YFIT(I)+A(J)>»<FCTN(X,  I,J,ri,NPTS) 

230  CONTINUE 

DO  240  I=1,NPTS 

YFIT(I)=YFIT(D+AO 

240  CH1SQ=CH!SQ+UEIGHTCI)>k(Y(  n-YFIT(I))>«=«2 

FREEN=NPTS-NTERriS-l 
CHISQR=CHISQ>i:UriEAN/FREEN 

C 

C CALCULATE  UNCERTAINTIES 

C 

IF  (MODE)  250.250,250 
250  VARNCE  = 1./L'MEAN 

GO  TO  270 

260  VARNCE=CHISQR 

270  IF  (NTERi-lS.LE.e)  GO  TO  290 
DO  280  J=I.NTERMS 

SIGMAA(J)=hRRAY(J,  J)>f*/ARNCE/(FREE1>KSIGMAX(J)^2) 

SIGMAA(J) =SQRT(SIGMAA(J) ) 

280  RMUL=RMUL+A(J)>kR(J)>kSIGMAX(J) /SIGMA 

FREEJ=NTERMS 

FTEST=(RMUL.4^REEJ)/(  ( 1 .-RMUD/'-PREEN) 

RMUL=SQRTCRMUL) 

GO  TO  300 
293  CONTINUE 
FREEJ=0. 

FTEST=0. 

RMUL=G. 

300  SIGMiAO=VARNCE/FNPTS 

IF  (NTERM3.LE.0)  GO  TO  320 
DO  310  J=1.NTERMS 

DO  313  K=1.NTERMS 

310  SIGMAO=SIGMAO+VRRNCE=tcXMEAN(J)^XMEAN(K)>f=ARRAY(J,K)/(FREEl>i-'SIGMA 

2X(J)5»:S!GMAX(K)) 

320  SIGMAO=SQRT(SIGMP.O) 

330  RETURN 
END 


f 
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spissn 

RES  IDS  PROG 
$FORT 
STRGT  16 

C >MoMoK>toMo<oK5*o|o(oK>toK3Mo|o(oK5K>K>toMoK>McioMoK5KJMc1oK*5toMotoM<*5k^^ 

c 

SUBROUTINE  RESIDS  (T,P,SP.Y,N) 

c 

Q >|ok3MoK5H>K5t;>|ofr>K>!<^;>|c>loK’toK?WoK>K>H>K>K>K>K^^>M(5toMoK>McK>K>Mo4otoK^K>K;k>k>M:'4ok^ 

C SUBROUTINE  TO  LIST  RESIDUfiLS  FROM  LEOST  SCUfiRES  FIT 

C 

C NEEDS  THE  FOLLOWING  COMMON  BLOCK: 

C COMMON  /lO/ 

C 

c 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (1060) 

C 

c 

C COMMON  /lo/ 

c 

EOUIVALENCE  (NTTYI, DUMP (123) ), (NTTYO. DUMP ( 124) ) 

8.,  (NPRINT,DUM?(  125) ) , (NF ILEA, DUMP ( 126) ) . (NFILEB,DUMP(  127)  ) 

8.,  (NFILED,DUMP(123)) 

C 

c 

DIMENSION  T(N),P(N),SP(N),Y(N) 

IF(NPRINT.GE.3)'JRITE(NPRINT,.10) 

IF(NFILEB.GT.6)WR]T£(NFILEB, 10) 

10  F0RMAT(//5M> 'TIME*. 13X,'P'> 10X,'YFIT',3X, 'SIGMA  P' 

8.. 4,, 'P-YFIT',  IX, ' (P-YFIT)/SIGP','  DELP') 

DO  30  I=1,N 

TEMP1=P(!)-Y(I) 

TEMP2  =TEMP 1 /AMAX 1 ( SP ( I ) , 1 . E- 1 5 ) 

DEL=0. 

IFd.GT.  1)DEL=P(I)-P(I-1) 

1F(NPRINT.GE.3)URITE(NPRINT,20)T(I),P(I) 

8., Y(I),SP(I),TEMP1,TEMP2,DEL 

IF(NFlLEB.GT.6)lJRITE(NFILEB,20)T(I),P(I),Y(I),SP(I),TEMPl,TErP2 

&,DEL 

20  FORMAT  (FIO. 1,2E14.6,4E10.3) 

30  CONTINUE  

IF(NPRINT.GE.3)WRITE(NPRINT,40) 

1F(NFILEB.GT.6)LJRITE(NFILEB,40) 

40  FORMAT  (//) 

RETURN 

END 
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RESPON  PROG 
SPORT 
STRGT  16 

C XoMoMo|oKiiototciMoMoMotoK5Mo!oMoioMoMoK*5K3to|oMoK)»oloK>(o(o«o4o«cMoMoM^^ 

c 

SUBROUTINE  RESPON (FTIME,NERROR) 

C 

c )fo^5joK>K5!o!<>M3k>K>|:>t<>K5tJ>KM!>t»K>K>iOt«>k5»o!oK>K>W«>t»l<>K5VsMcJo}ok>K3WoioK>^^ 

C SUBROUTINE  TO  ESTimTE  FfiCTCR  RESPONSE  FTIMS  FOR  USE  IN 
C ESTimTING  PRECISION  OF  EXTRAPOLATED  VALUE  TO  HALFUAY  IN  TIME 
C BETUEEN  OLD  AND  NEU  LEVELS  OF  FACTOR 

C 

C NEEDS  THE  FOLLOWING  COMMON  BLOCKS  AND  SUBROUTINES: 

C 

C COMMON  /BIAS/ 

C COMMON  /FACTR/ 

C COMMON  /IQ/ 

C COMMON  /MIDASR/ 

C SETPAR 

C TRAMID 

C UAYT 

C 

C INITIAL  CHOICES  FOR  FACTOR  LEVELS  TO  DETERMINE  RESPONSE  TIMES  AT 
C T - 250  AND  270  DEG. 

C P - 400  AND  450  m HG 

C N2  - 200  AND  240  SCC/MIN 

C 02-50  AND  60  SCC/MIN 

C THESE  VALUES  MAY  BE  CHANGED  BY  USER  INPUT 
C ^ 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (908) 

C 

C COMMON  /BIAS/BIASV(8).SIGBV(8) 

C 

DIMENSION  BIASV(8),SIGBV(8) 

EQUIVALENCE  (B I A3V( 1) , DUMP ( 1 ) ) , (SIGBVC 1) ,DUM? (9) ) 

C 

C COMMON  /FACTR/ 

C 

DIMENSION  KAMDU(S) . IFUNCT(8) , IFDERC8) . INPUT(8) ,SCALE(8) 

8., NRANGE(8),NREADS(8)  .NTERMS(8),CHTEST(8),PTirE(8) 

8., PRECF(8),PRECR(8).AT(4) 

EQUIVALENCE  CNTHCP.DUMPC 17) ) , (KANDUC 1) ,DUMP( 18) ) 

8.,  ( IFUNCTC 1 ) ,DUMP(26) ) . ( IFDERC 1 ) , DUMPC34) ) 

8.,  ■(  INPUTC  1 ) , DUMP  (42) ) , ( SCALE  (1 ) , DUMP  (56 ) ) 

8.,  (NRANGE(l)  .DUMPC5S)),  (NREADS(1),DUMPC66)) 

8. , ( NTERM5  ( 1 ) , DUMP  ( 74 ) ) , ( CHTEST  ( 1 ) , DUMP  ( 82 ) ) 

8. , (PT I ME  ( 1 ) , DUMP  ( 90 ) ) . C PRECF  (.  1 ) , DUMP  ( S3 ) ) 

8.,  (PRECR  ( 1 ) , DUMP  ( 1 06 ) ) , C NF ACTS , DUMP  (114)) 

6., (NRATES,DUMP(1 15)),  (TIMLIM.DUMPdlS)) 

8.,  (NBAD8,  LUMPU  u ) ) . ( INTVAL,DUMP(  1 18) ) 

^ CAY(i).DUMPdl9)) 

Kp 
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EQUIVALENCE  (NTTr'I . DUMP (123) ).  (NTTYO,  DUMP ( 124)  ) 
t, (NPRINT, DUMP (123) ) . (NFILEA,DUMP( 126) ) > (NFILEB,DUMP( 127) ) 

8.,  (NFILED,DUMP(128)) 

COMMON  /MIDASR/ 

INTEGER>k2  out ( 20 ), REPLY (20)  ,NUM(  10) , JUNi<2(  IS) 

EQUIVALENCE  (OUTC 1 ) ,DL’MP(  14^) ) . (REPLY(  1) . DUMP ( 160) ) 

8.,  (NUM(  1)  ,DUM?(  1S9) ) . (JUNK2(  1 ) ,0UT(3) ) . (NFILTR,DUMP(  130)  ) 


DIMENSION  LABEL(2,4),FTIM£(4),FVAL(2,4) 

8., NUHAT(4),CHI(4) 

8., T(4),TEMP1(2),TEMP2(2) 


DATA  LABEL/' TEMP','  ','PRES',"S  '.'N2  F'.'LOU  ' 

8., '02  F'.'LOU  '/ 

DATA  FVAL/250 . , 270 . , 490 . , 450 . , 280 . . 240 . , 50 . , 60 . / 


NERROR=0 

MEASURE  RESPONSE  TIMES  TO  CHECK  CHI  TEST  VALUES,  PTIMES,  ETC.? 
URITE(NTTYO,7e0) 

700  F0RMAT(/'  MEASURE  FACTOR  RESPONSE  TIMES?  0=NO,  l='i'ES') 
READ(NTTYI,20)J 
IF(J.EQ.0)RETURN 

READ  IN  FACTOR  RESPONSE  TI^ES  IF  SO  DESIRED 
DO  89  1=1,4 

URITE(NTTYC’.  10)  (LABEL ( J,  I ) , J = 1 .2) 

10  F0RMAT(//'  READ  IN  FACTOR  RESPONSE  TIMES  OR  MEASURE  THEM?'/ 
a'  ENTER  0 FOR  READ'/ 
a'  1 FOR  MEASURE'/ 

a'  IN  II  FORMAT  FOR  ',2A4,'  PARAMETER  ') 

READ (NTTYI , 20) NUHAT( I ) 

20  FORMAT(Il) 

IFCNLIHATCI)  .GT.0)GO  TO  SO 
URITE(NTTYO,40) (LABEL(J, I),J=1,2) 

40  FORMATi!'  FACTOR  RESPONSE  TI^E  FOR  ',2A4,'  IN  F10.3  FORMAT?') 

READ (NTTYI,  50) T( I) 

50  FORMAT (F7. 3) 

CHI(I)=0 
80  CONTINUE 

OPTIONALLY  CHANGE  TARGET  VALUES 
UIRITE(NTTYO,550) 

560  FCRMAT(/'  TARGET  VALUES  OF  FACTORS  IN  PESPOH  ARE:') 
URITE(NTTYC.509) ( ( I, J.FVAL(J, I) , J=l,2) , 1=1,4) 

500  F0RMAT(2I7,F16. 1) 

565  URITE(NTTY0,510) 
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510  FORMAT ('  DO  YOU  L'ANT  TO  CHANGE  ANY  VALUES?' 

8./"  IF  SO,  ENTER:' 

8./'  FACTOR  NUMBER,  1 =T,  2=P,  3=FN2,  4=F02' 

8./'  1 OR  2 FOR  FIRST  OR  SECOND  VALUE  OF  A FACTOR' 

&/'  VALUE  ITSELF' 

ALL  IN  (2I3,F13.0)' 

r,y,  END  UITH  FACTOR  NUMBER  OF  ZERO  (0)  ) 

READ ( NTTY I , 320 ) I , J , FTEMF 
520  FORMAT(2I3,F1O.0) 

IF(I.EQ.0)GO  TO  550 

IF(I.GE.1.AND.I.LE.4.AND.J.GE.1.AND.J.LE.2)G0  TO  540 
URITE(NTTYO,530) 

530  FORMATC/'  INCORRECT  INPUT,  TRY  AGAIN') 

GO  TO  510 

540  FVALCJ,  I)=FTEMP 
GO  TO  510 

550  URITE  (NTTYC,50O)  ( ( I, J,FVAL(J, I) , J=l,2) , 1=1,4) 

URITE  (NTTY0,5S2) 

562  FORMATC/'  ARE  THESE  VALUES  OK?  0=YES,  l=NO  CIl  FORMAT)') 

READ  (HTTYI,20)NG0 
IF  CNGO.NE.O)  GO  TO  5S5 
IF(NF!LEB.GT.6)G0  TO  579 
URITE CNF ILEB, 550) 

URITECNFILE3,5G0) CCI,J,FVALCJ, I) , J=l,2) , 1=1,4) 

570  IF CNPRINT.lt. 3) GO  TO  580 
URIT£CN?RIHT,550) 

URITECNPRINT,589) C C I, J,FVALCJ, I) , J=l,2) , 1=1,4) 

580  CONTINUE 

^ IFCHF1LE3.GT.6)L'RITECNFILEB,  125) 

IFCNPRINT.GE.3)’uiRITECNPRlNT.  125) 

125  FORMATC'  FACTOR  RESPONSE  TIMES  FOLLOU:' 

8/'  FACTOR  LOU  HIGH  TIME  CHISQ  MEASURED?  TIMES  8 CHI  ' 
8, 'VALUES'/) 

^EASURE  ANY  RESPONSE  TIMES  NOT  READ  IN  • 

DO  100  1=1,4 

IFCNUHATCI) .LE.O)GO  TO  100 

START  CLOCK 

0UTC1)=12 
0UTC3)='IT' 

OUTC4)='00' 

OUT(5)='00' 

OUT(6)='O0' 

0UT(7)='R  ' 

0UTC8)='  ' 

CALL  TRAMIDC0UTC2), 13, REPLY, 19,0.) 

0UTC1)=33 
KK=I+1 

FIX  TO  READ  OUTPUT  OF  FLOU  METERS  RATHER  THAN  INPUT  TO  THEM 
’ IF(I.GT.2)KK=I+3 
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SET  FRCTOR  AND  UR  IT  TILL  IT  IS  STERDY 
DO  85  J=1.2 

CRLL  SETPRR(FVRL(J, I) , I .HERROR. NTWCF, TO 
IF (NERROR . GT. 0) RETURN 

NEED  GRS  FLOU  TO  MRINTRIN  PRESSURE 

IF(I. HE. 2)G0  TO  86 

CRLL  SETPhR (5C0 . , 3 . NERROR, NTHCP .TO 

CRLL  SETPRPCO. .4,HERROR,NTKCP,TO 

86  CRLL  UAYT(CHTE3T(r:K;,PTIME(K:<).  INPUT(KK)  .HRRHGECKK) 
&,SCRLE(KK) 

8..  TEM?  1 ( J)  . TErF2 ( J)  . B IflSVCKIO  , NRERDS (KK)  . NTERMS (KK) . NERROR) 
85  CONTINUE 

CRLCULRTE  CHI  SQURRE  RND  TIME  FOR  STEADINESS 

T( I ) = (TEMP  1 (2) +TErP  1 ( 1) ) /2 . 

CH I (I ) = (TEMP2  ( 1 ) H-TErP2  (2)  ) /2 . 

OUTPUT  RESULTS 

FTI^E(^=T^)/2. 

IF (NERRCR . GT. 8 . PND . NF ILEB . GT, 6)  L^  ITE (NF ILEB . S7) 

I F ( NERROR . GT . 0 . AND . HPR I NT . GE . 3)  UR  I TE  ( H.PR  I NT.  87  ) 

87  FORraTC/'  CONDITIONS  NOT  rET  FOR  FOLLOUING  FACTOR') 
IF(NFRINT.GE.3)'JRITECNPR!NT.  123)  CLAEELCJ,  I).  J = 1 .2) 

8..  (FVP.LCJ.  I).J  = 1.2).Tn).CHICI).NLJHRT(I).TEMPl.TE''P2 
lF(NFILE3.GT.S)lTi:TECNFILE3.  ICO  (LASELCJ.  I).J  = 1.2) 

8..  (FVAL ( J.  I)  , J = 1 . 2) . TU ) , CH I ( I ) . NUTiRTC  I ) . TErP  1 . TEr.P2 
103  CONTINUE 

120  FCRMRTC1X.2A4.3F7.8.F7. 1, I5.4F7.0) 

RETURN 

END 
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RMlDftS  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  RMIDfiS (AVE, SD, NRANGE,  INPUT, SCALE. NREPD3 . B I ASV. NERROR) 

C 

C 5^c^c^c^oMo(c!oK^KJK^3^o^o!o^oK:^cfo{cf:>^o^o}o^c>^5M^^oiofo^c*>oK>^^^ 

C SUBROUTINE  TO  READ  =NREADS=  VALUES  (nAX=530)  CF 
C VOLTAGE  ON  DVM  AND  CALCULATE  AVERAGE  (AVE)  AND  STANDARD 
C DEVIATION  (SD)  CHARACTERISING  SAnPLE  (Q) . 

C 

C AVE  AMD  SD  ARE  DEFINED  AEO'/E 
C NRANGE  = RANGE  SETTING  ON  DVH 

C SCALE  = CONVERSION  FACTOR  FROn  MIDAS  READING  TO  PHYSICAL  QUANTITY 
C DEPENDS  ON  DVM  RANGE  AND  ANY  CONVERSION  IN  UNITS. 

C HREAD3  = NUMBER  CF  READINGS  TO  TAKE  IN  ASSESSING  AVERAGE  VALUE 
C BIASV  = BIAS  \/OLTAGE  ON  VOLTAGE  INPUT  TO  DVM 
C NERRROR  = ERROR  INDICATOR  ( = 8 FOR  NORMAL  CFERATION.  = 4 FOR 
C INCORRECT  DW  FUNCTIONING  (I.E.,  'NO'),  = 5 FDR  D'VM  UILL  NOT  SET  RANGE 
C SPECIFIED) 

C 

C NEEDS  THE  FOLLOUING  COMMON  BLOCKS  AND  SUBROUTINES: 

C COMMON  /lO/ 

C COriMON  /MIDASR/ 

C AVSDN 

C DEKODE 

C TRAM ID 

C 

c 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

C COMMON  /lo/ 

C 

EQUIWLENCE  (NTTYI  .DUMP (123)  ).  (NTTYO.DUrPC  124)  ) 

. &, (NPRINT,DUMP(125)). (NF1LEA.DUM?(126)). (NF ILE3, DUMP ( 127) ) 

&,(NFILED. DUMP (123)) 

C 

C COMMON  /MIDASR/ 

C 

I NTEGER-!:2  OUT  ( 23 ) . REPLY  ( 23 ) , NUM  ( 1 8 ) , TR I G ( 20 ) 

EQUIVALENCE  (OUT( 1 ). DUMP ( 143) ) 

E..  (REPLY(1).DUMP(1S3)).  (NUM(1).DUM?(183)) 

8.,  (NFILTR. DUMP (190)) 

C 

c 

c 

DIMENSION  0(500) 

NTYMER=0 
200  NERROR=0 
NTIM£=1 
AVE=0. 

SD=l.E-09 
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NREftDS-MINO(500,NREADS) 

C 

C PREPARE  TO  SET  IiVM  TO  RANGE  AND  FUNCTION,  THEN  TRIGGER 
C 

OUT(1)=20 

0UT(2)=X'23' 

0UT(3)-'MP' 

0UT(4)='3' 

0UT(5)=NUM(NFILTR+1) 

OUT(G)  =NL'ri(NRANGE+l) 

0UT(7)-'>f:T' 

DO  110  1-8,20 
110  GUT(I)='  ' 

C 

C PREPARE  TO  UNLOAD  D'vTI 
C 

TRIG(1>=2C 

TRIG(2)=X'23' 

TRIG(3)='m' 

DO  120  1=4,23 
123  TRIG(I)='  ' 

C 

c 

lee  DO  10  I=1,NREADS 

c 

C TRIGGER 
C 

CALL  TRAMIDi:0UT(2),19,REPLY(2),  1,0.) 

C 

C UNLOAD 
C 

CALL  TRAMID(TRIG(2).19,REPLY(2), 19,9.) 

C 

C DEKCDE  TO  GET  VOLTAGE 
C 

CALL  DE:<ODE(REPLY(2),Q(I),7,0) 

C 

C CHECK  FOR  =NO=  ON  DVM 
C 

CALL  DEK0DE(REPLY(5),F,1, 1) 

IF(F.LT.0.  DGO  TO  25 
C 

C RANGE  ON  DVM  NOT  LARGE  ENOUGH 

C 

NR=NRANGE 

NRANGE-NRANGE+1 

IF (NRANGE . GT. 7) NRANGE=? 

. IF(NrILEB.GT.£)URlTE(NFILE3.339)NR, NRANGE, INPUT 
IFCNPRINT. GE . 3) LR ITECNPR INT, 303) NRANGE,  INPUT 
300  FORMATC//'  S$3  RANGE  CHANGE  FROM', 13,*  TO', 13,'  ON  INPUT', 13 
SS3'//) 

NPiTiER=NTYMER+l 
IFCNT'itlER.GT.ElGO  TO  201 
Ga  TO  200 

C 

C DEKODE  TO  GET  RANGE 
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C 


25  CftLL  DEK0DE(REPLY(6).F. 1.0) 

NR=IFIX(F+0.5) 

IF(NR.EQ.NRANGE)  GO  TO  70 
NTIME=NTiriE+l 

TRY  3 TIMES  TO  READ  MIDAS  CORRECTLY 

IFCNTIME.LE.3)  GO  TO  100 

NERRCR=5 

REPJRH 

0 CONTINUE 

Q (I ) =0 (I ) ^SCALE-5 1 AS V 

IF (KRANGE . GT. 3) Q C I ) =Q ( I) >k1  0 . 5toK(KRANGE-3) 

10  CONTINUE 

FIND  AV'ERAGE  AND  SIGMA  OF  READINGS 

CALL  AVSDN(AVE.SD.Q.NREADS) 

CHECK  TO  SEE  IF  RANGE  CAN  BE  MADE  MORE  SENSITIVE 

IF(NRANGE.EQ.3)G0  TO  30 
F*A3S ( (A VE/SC ALE) +E I ASV) 

FSD=SD/SCALE 

B0UND=!53£0. 

I F ( NR  ANGE . GT . 3 ) BOUND =BOUND«  1 0 . i+oK  ( NR  ANGE-3 ) 

IFCF.GT.  (BOUND-5. ^'i--FSD))  GO  TO  80 

NTYMER=NTYMER+1 

IF(NTYMER.GT.2)G0  TO  201 

HR=NRANGE 

NRANG£=NRANGE-l 

IF  CNF ILEB . GT. S) LRITECNF ILEB. 309) NR, NRANGE. IN°UT 
IF(NPR!NT.GE.3)L'RITECNPRINT,330)NR,NRANGE,  INPUT 
GO  TO  200 
201  NERR0R=4 
80  RETURN 
END 
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RPfiR  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  RPftRCflVE.SD. INPUT. NRflNGE,SCfiLE.NREfiDS,BlASV,NERROR) 

C 

0 3toWoK>|ofok>«r>K^f>cK)K^Wt>K'^*>t:*Tto*cloMototcfoK7KMotoio':^HoMo|c*ntC3tot:>K5k>W^ 

C SUBROUTINE  TO  READ  VALUE  FROM  MIDAS 

C 

C AVE  «=  AVERAGE  VALUE  OF  SAMPLE  OF  READINGS  FROM  MIDAS 
C SD  = STANDARD  DEVIATION  OF  SArPLE  (NOT  OF  AVERAGE) 

C INPUT  = INPUT  NUMBER  ON  MIDAS  ANALOGUE  SCANNER 
C NRANGE  = VOLTAGE  RANGE  TO  USE  ON  DVM 

C SCALE  = FACTOR  TO  CONVERT  FROM  MIDAS  \^LTAGE  TO  PH^'SICAL  QUANTITY 
C DEPENDS  ON  DW  RANGE  AND  ANY  CONVERSION  IN  UNITS 
C NREADS  = NUM5ER  OF  READINGS  TO  TAKE  IN  BUILDING  UP  SAMPLE 
C BIASV  = BIAS  VOLTAGE  ON  VOLTAGE  INPUT  TO  DVM 
C NERROR  = ERROR  INDICATOR,  RETURNED  FROM  SUBROUTINE  RMIDAS 
C 

C NEEDS  COMMON  /MIDASR.' 

C 

C NEEDS  THE  FOLLO'JING  SUBROUTINE: 

C RMIDAS 
C TRAMID 
C 
C 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

• C COMMON  /MIDASR/ 

C 

INTEGERX'2  OUT (23) , REPLY ( 23 ),  NUM(  10) 

EQUIVALENCE  (OUT( 1 ) . DUMP ( 143) ) 

8..  (REPLY(1).DUMP(16G)).  (NUM(1).DUM?(180)) 

C 

c 

c 

NTIME=1 
20  NERROR=0 

C 

C SET  ANALOG  SCANNER  TO  SEND  SIGNAL  TO  DVM 

C 

OUT(I)=10 

0UT(2)=X'23' 

0UT(3)='K' 

0UT(4)=NUM(INPUT+1) 

DO  33  I-5.18 
30  OUT(I)='  ' 

CALL  TRAMID(0UT(2), 10,REPLY(2).1,0.) 

C 

C READ  MIDAS 

C 

CALL  RMIDAS(AVE.SD. NRANGE.  INPUT. SCALE. NREADS. BIASV.NERROR) 


IF (NERROR . EQ . 0) RETURN 

C 

C TRY  3 TIMES  TO  READ  PARArETER 
C 

NTIME=NTIME+1 
IF(NTIME.LE.3)G0  TO  20 
RETURN 
END 
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SETPfiR  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  SETFRR(PfiR,NPflR,NERROR,NTHCP,TC) 

C 

C j|ofotoiok>(o(c>!o|otc^cj<>iototoK>MoK5to(o!oK:<c>K>K5fo>oWoK>K>foK>KM<>cioMcK>K>o<4otoK>Wc^ 

C SUBROUTINE  TO  SET  TEnPERRTURE,  PRESSURE  OR  FLOUS  TO  VALUE  =PP.R 
C NPAR  = 1 FOR  TEMPERPTLRE 

C 2 FOR  PRESSURE 

C 3 FOR  FLOU  ON  CHANNEL  1 

C 4 FOR  FLOU  ON  CHANNEL  2 

C 

C NTHCP  = THERMOCOUPLE  TYPE 
C NTHCP  =K  : T'iPE  K THERMOCOUPLE 
C NTHCP =E  : TYPE  E THERMCCGuPLE 
C TC  = THERMOCOUPLE  VOLTAGE  IN  MICROVOLTS 

C NERROR  = ERROR  INDICPTGR  ( = 0 FOR  NO  ERROR,  = 1 FOR  URONG 
C SPECIFICATION  OF  THERMOCOUPLE  Ti?E  I.E.,  NOT  E OR  K, 

C =2  FOR  NFAR  OUT  OF  RANGE  1 TO  4) 

C 

C NEEDS  PART  OF  COMMON  /FACTR/ 

C COMMON  YIO/- 
C COMMON  /MIDASR/ 

C AND  SUBROUTINES  EN’KODE  AND  TRAM  ID 

C 

c 

c"' COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

C COMMON  /FACTR/ 

C 

EQUIVALENCE  ( TSCALE, DUMP ( 130) ) 

C 

C COMMON  /ic/ 

C 

EQUIVALENCE  CNTTYI , DUMP (123) ),  (NTTYO,DUr^(  124)  ) 

■ 8.,  (NPRINT,DUMP(125)) . (NF  ILEA,  DUMP  ( 126) ),  (NFILE3,  DUMP  ( 12?)  ) 

8c,  (NFILED,DUMP(123)) 

C 

C COMMON  /MIDASR/ 

C 

INTEGER:i<2  OUT(20)  ,REPLY(20) 

8.,NUM(!0) 

EQUIVALENCE 

&(OUT( i) ,DUMP( 143) ) , (REPLY( 1) ,DUrP( 160) ) 

(NUM(1),DU^P(1S0)),  (N\/DC,DUrP(19D) 

C 

C 

NERROR=a 

OUT(l)=14 

0UT(2)=X'23' 

DO  30  1=7,20 
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30  0UT(I)='  ' 

IF(NPftR.GT.4.riR,NPflR.LT.  DGO  TO  6B0 
GO  TO  (160, 230, 303, 400). NPAR 

SET  TEMPERATURE  USING  DEGREES  CELCIUS 

100  CONTINUE 
0UT(3)='D' 

0UT(6)=';' 

CONVERT  TEMP  TO  THERMOCOUPLE  READING  IN  MV 
IF(NTHCP.NE.’K')  GO  TO  10 
TYPE  K THERMOCOUPLE 

POLYNOMIAL  CALCULATED  BY  B.  DICKENS  FOR  25  TO  453  DEGREES  CELCIUS 
USING  VALUES  FROM  TABLE  A7.2.1,  NBS  MONOGRAPH  125,  1974 

RESULTS  GOOD  TO  ABOUT  15  MICROVOLTS 

POLYNOMIAL  FITTED  ABOUT  233.94  TO  EQUALISE  ERROR  AT  ENDS 
T=PAR-233,94 

TC=0.S5iO67SSE+31  + T>K(0.405S5763E-01  + T>k(0.21380738E-05 
8.  + T«(0.15233454E-07))) 

GO  TO  40 

0 IF(NTHCP.NE.'E')  GO  TO  20 
TYPE  E THERMOCOUPLE 

POLYNOMIAL  CALCULATED  BY  B.  DICKENS  FOR  25  TO  450  DEGREES  CELCIUS 
USING  VALUES  IN  TABLE  A5.2.1,  NBS  MONOGRAPH  125,  1374  . 

RESULTS  GOOD  TO  ABOUT  5 MICROVOLTS 

POLYNOMIAL  FITTED  ABOUT  247.67  TO  EQUALISE  ERRORS  AT  ENDS 
T=PAR-247.67 

TC“  0. 169940 19E-f32  + T>H(0.76160789E-31  + T>K(a.23884472E-04 
8.  - T>k(0.374S96nE-O7))) 

GO  TO  40 
!0  NERR0R=1 
RETURN 

}0  CONTINUE 

MAKE  MAXIMUM  FURNACE  TEMP  = 458  C BECAUSE  OF  PYREX  GLASS  ENCLOSURE 

NVDC=MIN1  (8500.  ,TC:t;TSCALE) 

GO  TO  503 

SET  PRESSURE 

PRESS  = DESIRED  PRESSURE  IN  TORR  = MM  HG 
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200  CONTINUE 
PRESS=PAR 
0UT(3)='D' 

0UT<6)=>' 

SCALE  PRESSURE  TO  APPROPRIATE  VOLTAGE 

HVDC  = IFIX(PRESS5X10.) 

GO  TO  500 

SET  FLOU  RATE  1 OR  2 AS  SPECIFIED 

BY  VALUE  OF  NPAR(=3  FOR  FLOU  1,  =4  FOR  FLOU  2). 

FLOU  = DESIRED  FLOU  RATE  IN  SCC/MIN 

300  CONTINUE 
FL0U=PAR 
0UT(3)='G' 

0UT(6)=' 


CHANNEL  1 IS  FOR  N2,mX  FLOU  500  SCC/MIN  FOR  5000  MVDC 
CONVERT  FLOU  TO  VOLTAGE 

NVDC=MI N 1 (5000 . 5f<FLGU/50a . , 5000 . ) 

GO  TO  500 
403  CONTINUE 
FLOU=PAR 
0UT(3)='G' 

0UT(6)=';' 

CHANNEL  2 IS  FOR  62, MAX  FLOU  200  SCC/MIN  FOR  5000  MVDC 
CONVERT  FLOU  TO  VOLTAGE 

NVDC  =MIN  1 (5000 . >s^FLOU/200 5000 . ) 

SET  MIDAS 

500  NVDC=MAX0(NVDC,O) 

K1=NVDC/1000 
K2  = (NVDC-K1>!<1O0O)/10O 
K3  = ( NVDC-K 1 >!:  1 000-K2^^  1 03 ) / 1 0 
K4=NVDC-Kl>Kl0O3-K2>t<lO0-K3>Kl0 
0UT(4)  =NUM(K  1 + 1 ) >tc255+NUri(K2+l ) 

0UT(5) =NUM(K3+1 ) ^256+NUM(K4+l ) 

CALL  TRAMID(0UT(2) . 19.REPLY(2) , 1 ,0. ) 

IF  (NFILEB.GT.6)  UR ITE (NF ILE3, 700) PAR, NPAR, OUT 
IF  (NPRINT.GE.3)  URITE(N;PRINT,703)PAR,NP'AR,0UT 
700  FORMAT('  FACSET'/F13. 1, I 10/I6,2X, 1SA2) 

RETURN 
600  NERR0R=2 
RETURN 
END 
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TDEGAB  PROG 
SPORT 
STRGT  IS 

c 

FUNCTION  TDEGfiB  (T.fiT) 

C 

C }MoM^^otoK'f:>H^>K>Wok>k3)otc>foK>Kito(o|oMoK>toMo<>toJoK5MoMoMo|oMc<ofo>c5to^^ 

C 

C FUNCTION  TO  CftLCULfiTE  TEMPERATURE  IN  DEGREES  ABSOLUTE 
C FROM  THERMOCOUPLE  READING 

C 

DIMENSION  AT(4) 

TP=0 

DO  10  K=l,4 

10  TP=TP+AT(K)>kT^*!< 

TDEGA3=TP+273. 15 

RETURN 

END 
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THMCPL  PROG 
SPORT 
$TT?GT  16 

Q 3MoK5io1<*>K>K>fotc>K>K?MoMc<oK>K>|olo)cfofoK>fclofc5M^.K>Mc4c>K>^^ 

c 

SUBROUTINE  THMCPL  (NTHCP,fiT) 

C 

C #5^oMoM^;K^lo^c4<>Mok>^oK>K>K>K5^3♦oK>^5K>K>*o»oK>X>;cH;foK>K^»toK5^oK5K5ic^o^otofc>lotc>!<^ 

C SUBROUTINE  TO  PROVIDE  COEFFICIENTS  FGR  CONVERSION  OF 
C THERMOCOUPLE  RERDINGS  IN  MICROVOLTS  TO  DEGREES  CELCIUS 

C 

C NEEDS  COMMON  BLOCK  /lO/ 

C 

C COMMON  STORRGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

C COMMON  /lo/ 

C 

EQUIVALENCE  (NTTYI ,DUM?( 123) ) , (NTTYO, DUMP( 124) ) 
e.,(NPRINT,DUMP(125)),  (NFILEA,DUM?(125)),  (NFILEB,DUM?(127)) 
&.(NF!LED, DUMP (128)) 

C 

DIMENSION  AT(4) 

C 

20  IF(IABS(NTHCP-'K').GT.0)GO  TO  60 

C 

C TYPE  K THERMOCOUPLEA'ALUES  FROM  TABLE  A7.2.3,NBS  MONO.  125 
C 

40  IF(N?RINT.GE.3)L'RITE  (NPR1NT.53) 

IF(NFILEB.GT.6)URITE(NFILEB,50) 

ftT(l)=2.4383248E-02 

AT(2)=9.7830251E-09 

AT(3)=3.6275S65E-12 

AT(4)=-2,5756432E-i6 

50  FORMAT  (/50H  TYPE  K THERMOCGUPLE=NI-CR/HI-AL, EXPRESS  IONS  GOOD  /. 
2'  TO  400  DEGREES  C. (TABLE  A7.2.3, . P.3S4, ,NBS  MONO . 125, 1974) ' ) 

GO  TO  110 
C 

C TYPE  E THERMOCOUPLE 

C 

60  IF(IABS(NTHCP-'E') .GT.0)GO  TO  90 
IF(NPRINT.GE.3)URITE  (NPRINT.70) 

IF(NFILEB.GT.6)LRITE(NFILE3,70) 

70  FORMAT  (/50H  TYPE  E THERMOCOUPLE=N I -CR/CU-N I , EXPRESS  IONS  GOOD  /, 
2'FROM  -0.05  TO  +0.04,  0 TO  430  DEGREES  C. (TABLE  A5. 2. 3, P.337'/ 

3 ' NBS  MONOGRAPH  125,1974)') 
ftT(l)=1.7022525E-02 
AT(2) =-2 . 239724BE-07 
AT(3)=5.430S3I4E-12 
AT(4)=-5.76S9892E-17 
GO  TO  110 
C 

C ERROR  ROUTE 

C 

90  URITE(NTTYO. 100) 

100  FORMAT  (/40H  URONG  LETTER  FOR  THERMOCOUPLE, TRY  AGAIN) 

URITE  (NTTYO, 10) 

10  FORMAT  (/'  GI'\'E  THERMOCOUPLE  TYPE,  K OR  E') 

READ  (NTTYI,30)  NTHCP 
30  FORMAT  (Al) 

GO  TO '20 
110  RETURN 
END 
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TIMER  PROG 
SPORT 
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Q X<5K>K3W«>i<*>{oioMc:MoK)Moio|oK>k>tc^oioMo*ojciotC)McioMo(oMoK?WoKJ|<)|cHc^^ 

c 

FUNCTION  TIMER (NTYME) 

C 

C FUNCTION  TO  GIVE  REPL  TIME  CLOCK  READING  IN  SECONDS 
C FROM  READING  MIDAS  CLOCK 

C 

C NTYME  = HOURS, MINUTES, SECONDS 

C 

C NEEDS  COMMON  /PARAMS/ 

C 

C REQUIRES  THE  FOLLOIJING  SUBROUTINES: 

C DEKODE 

C TRAM ID 

C 

COMMON  DUMP  (930) 

EQUIVALENCE  (DAY,DUMP(504) ), (HDTIME, DUMP(505) ) 

C 

DIMENSION  NTYME(3) 

C 

C SET  UP  COMMAND  STREAM  FOR  MIDAS.  THIS  HAS  TO  LOOK  LIKE  AN  INTEGER>t'-2 
C HOLLERITH  STREAM  UITH  THE  NUMBER  OF  CHARACTERS  IN  THE  FIRST  WORD 

C 

INTEGER>^<2  T(I0),R(10) 

DATA  T/12,X'23','IQ'.':;','<=','>?','R  '/ 

DATA  NT, NR/9, 9/ 

C 

C CALL  MIDAS  TO  READ  TIME,  REPLY  IS  6 CHARACTERS  IN  ARRAY  R 

C 

CALL  TRAMID(T(2),NT,R(2),NR,6.) 

TIMER=0. 

C 

C GET  HOUR  DIGITS  AND  CHANGE  THEM  INTO  SECONDS 

C 

CALL  DEKODE(R(2),F,2,0) 

TIMER=F>k3603, 

NTYME(1)=IFIX(F) 

C 

C GET  MINUTES 

C 

CALL  DEK0DE(R(3),F, 2.0) 

TIMER=TIMER+F>K6a. 

NTYME(2)=IFIX(F) 

C 

C GET  SECONDS 

C 

CALL  DEKODE(R(4),F,2.0) 

TIMER=TIMER+F 

NTYME(3)=IFIX(F) 

C 

C CHECK  IF  CLOCK  HAS  GONE  PAST  23:59:59  HRS 

C 

10  RETURN 
END 
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TRfiMID  PROG 
$FORT 
STRGT  16 

C *>Mo(c>|oMo(<>|ok*>)OK5|oMoK>K>WotoMo»oMc<oMoic4c>MoK5MoK5K5MoMo!otoK>k>«<>»o^^ 

c 

SUBROUTINE  TRfiMID(O.NO.R,NR,FS) 

C 

C j|oMoto(«5f<>K>l<>K>MoK>K>KMoK)inK>»o|oK>tc>Mo»o(n(oK5K>K>tnK>K>tok>lc>KJK5Mo)o^oK5^^ 

C SUBROUTINE  TO  CHECK  IF  MIDfiS  IS  FREE  HND  IF  SO  URITE 
C INSTRUCTION  ARRAY  =0=  AND  RECEIVE  REPLY  ARRAY  =R= 

C MIDAS  IS  ON  UNIT  =U= 

C LENGTH  OF  REPLY  ARRAY  IS  =FS= 

C 0 AND  R ARE  HOLLERITH  ARRAYS 
C 

C NEEDS  COMMON  /lO/  AND  SUBROUTINE  MIDAS 

C 

c 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP (900) 

C 

C COMMON  /lO/ 

C 

EQUIVALENCE  (NTTYO, DUMP ( 124) ) , (NPRINT,DU^P( 125) ) , (NF1LEB,DUM? 
&(127)) 

C 

c 

INTEGER>K2  0(N0)  ,R(NR)  ,T(20)  ,Q(20) 

U=36. 

T(l)=4 

T<2)=X'23' 

T(3)='/  ' 

DO  10  1=4,20 
10  T(I)='  ' 

C 

C CHECK  IF  MIDAS  IS  FREE 

C 

NDONE=0 
50  NTIME=0 

30  CALL  MIDAS(U,T(2),Q(2),0.,S) 

IFCS.LT.O.  DGO  TO  20 
NTIME=NTIME+1 
IF(NTIME.LT.50O0)GO  TO  30 
URITE(NTTYO,40)S 
IF(NPRINT.GE.3)URITE(NPRINT,40)S 
IF(NF1LEB.GT.6)'lJRITE(NFILEB,40)S 
40  FORMATC'  MIDAS  FOUND  TO  BE  BUSY' 

8./'  STATUS  IJGRD  IS',F4.0 

8./'  CRASH  ON,  TRY  CHECKING  MIDAS  AGAIN') 

GO  TO  50 
C 

C MIDAS  IS  NOT  BUSY 

C 

20  IF (NDONE . EQ . 1 ) RETURN 

C 


C 

c 


URITE  AND  READ  MIDAS 


CALL  MIDAS(U,0,R,FS,S) 

ND0NE=1 

C 

C UAIT  TILL  TRANSACTION  IS  COMPLETED 

C 


GO  TO  50 
END 
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UAYT  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  mYT(PCHISQ,PTlME,  INPUT. NRPNGE,SCPLE,TiriEST, 
fcCH ISQR. B IPSV. NREADS. NTERMS.  NERROR) 

C 

C )|oMok>fo(ok>iOr>toK>l<>K5K'.<ok>K>lo*oMotc)K>loM«5}»K>K>MoK5Wc>K:fyMofoMoMoiotoK>S>K>MC3K:ioK5K^ 

c 

C SUBROUTINE  TO  WAIT  UNTIL  READING  STEADIES  DOUN 

C 

C PCHISQ  = EQUILIBRIUM  VALUE  FDR  PARAMETER  CHI-SQUARE 
C PTIME  = MAXIMUM  STEADYING  TIME  ALLOWED 
C INPUT  = INPUT  NUMBER  ON  MIDAS  ANALOG  SCANNER 
C NRANGE  = INPUT  VOLTAGE  RANGE  ON  D^/M 

C SCALE  = CONVERSION  FACTOR  FROM  MIDAS  READING  TO  PHYSICAL  QUANTITY 
C DEPENDS  ON  DVM  RANGE  AND  ANY  CONVERSION  IN  UNITS 
C TIMEST  = TIME  TO  EQUILIBRATE  AS  OBSERVED  HERE 
C CHISQR  = EQUILIBRIUM  CHI-30UARE  VALUE  AS  OBSER^/ED  HERE 
C BIASV  = BIAS  VOLTAGE  ON  VOLTAGE  INPUT  TO  DVM 

C NREADS  = NUMBER  OF  READINGS  TO  TAKE  IN  ASSESSING  AVERAGE  VALUE 
C HTERMS  = NUMBER  OF  TERMS  IN  POLYNOMIAL 

C NERROR  = ERROR  INDICATOR  AS  RETURNED  FROM  SUBROUTINE  RPAR 

C 

C NEEDS  THE  FOLLOWING  COMMON  BLOCKS,  SUBROUTINES  AND  FUNCTIONS: 

C COMMON  /REGR3/ 

C REGRES 

C RPAR 

C TIMER 

C 

C COMMON  STORAGE  DEFINED  VIA  ARRAY  =DUMP= 

C 

COMMON  DUMP(BQ8) 

C 

C COMMON  /REGRES/ 

C 

DIMENSION  M(5).R(5).YFIT(250) 

EQUIVALENCECMC 1) ,DUMP(530) ) , (RCl) ,DUMP(535) ) . (YFIT( 1) ,DUM?(540n 

C 

DIMENSION  P(5).SP(5).NTYME(3).TYME(5),A(5) 
a,SIGMA(5) 

C 

C 

NERROR=0 

BEGIN=TIMER(NTYME) 

C 

C READ  INPUT  IN  BLOCKS  OF  5 READINGS,  5 SECONDS  BETW-EEN  READINGS 

C 

30  DO  20  K=l,5 

CALL  RPAR (P (K) . 6P (K) . INPUT, NRANGE, SCALE, NREADS, B I ASV. NERROR) 

IF (NERROR. GT.O) RETURN 
TYME(K)=TIMER(NTYME)-BEGIN 

C 

C UAIT  5 SECONDS  BETWEEN  READINGSS 
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35  ™U=TIMER(HTYriE)-BEGIN 

IF((TNOU-TYME(K)) .LT.5.)G0  TO  35 
20  CONTINUE 

TIMEST=TYME(5) 

DO  40  1=1,5 

40  TYMEn)=TYME(I)-TYriE<3) 

MODE=0 

CALCULATE  CHI  SQUARE  AS  A CHECK  FOR  STEADINESS 

CALL  REGRES(TYriE,P,SP,5,NTERIiS,ri,mDE,YFlT,A0,A,SIGnA0,SIGm 
8.,R,RMUL,CHISQR,FTEST) 

IF(CHISQR.GT.PCHISQ.AND.TinEST.LT.PTirE)  GO  TO  30 

EITHER  READING  IS  STEADY  OR  ELAPSED  TIME  IS  TOO  GREAT. 

IFCTIhEST.GT.PTIME)NERR0R=3 

RETURN 

END 
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SASSM 

UTAVER  PROG 
SPORT 
STRGT  Id 

C 3(OMoWo<*o*ototc>Mot3MC)foWoMo»oWotoMc+3Mo(oto»o4oWoMoMoWoj3Mc^c^^ 

c 

SUBROUTINE  UTAVER  (E. SIGE, NDATA, UTEAVE, S IGUTE) 

C 

C 3(o♦c3fDMc^oK>^ClK>H)70^ott!oK>‘c♦o^^fc>K)^o*c♦oK5<TC*^>'Dtaje'!^^o^oK>^oK>K^•■>icK 

C SUBROUTINE  TO  CALCULATE  AVERAGE  E (UTEAVE)  AND  STANDARD  DEVIATION  (SIGUTE) 
C FROM  INPUT  LIST  E AND  SIGE  CONTAINING  =NDATA=VALLES 
C ALSO  CALCULATE  UHUEIGHTED  AVERAGE  AND  S5;i  CONFIDENCE  RANGES 

C 

C NEEDS  THE  FOLLOUING  CCNJ1GN  BLOCKS  AND  SUBROUTINES: 

C comoN  /lO/ 

C COMMON  /REGRS/ 

C 

C NEEDS  SUBROUTINES: 

C AVSDN 

C CHISQ 

C REGRES 

C 

C COrtlON  DEFINED  BY  ARRAY  =DUMP  = 

COMMON  DUMP (903) 

C 

c 

C CONr.ON  /lO/ 

c 

EQUIVALENCE  (NTTYI . DUMP ( !23) ) , (NTTYO, DUMP ( 124) ) 

(NPRINT,DUM?(125)). CNFILEA.DUMP(12d)), (NFILEB,DUMP(127)) 

(NF ILED, DUMP (128)), CNF ILEE. DUMP (129)) 

C 

C COMMON  /REGRS/  - _ . . . 

C 

DIMENSION  M(5),R(5)..YFIT(250) 

EQUIVALENCE(M(i),DUMP(533)) . (R ( 1)  , DUMP(535) )> (YF IT( 1 ), DUMP (543) ) 

C 

C 

DIMENSION  E(NDATA).SIGE(NDATA),A(5),SIGA(5) 

C 

C CALCULATE  AVERAGE  UNUEIGHTED  E 

C 

UTEAVP=0. 

SIGLJTE  = 1 .E-09 
EAVE=0. 

ESIG=l.E-09  • 

SIGAVE=l.E-33 

FREE=0. 

CHIUTE=0. 

CHIUNU=Q. 

IF(NDATA.LE.8)RETURN 
IF(NDATA.GT.  DGO  TO  200 
UTEAVE =E(1) 

SIGUTE=SIGE(1) 

SIGAVE=SIGE(1) 

EAVE=E(1) 


AlOO 


ESIG=SIGE(1) 

GO  TO  3G0 
200  CONTINUE 

CALL  ftVSDN(EA'v'E,ESIG.E,NDPlTft) 

CftLL  CHISQ(E,SIGE.CHIUNU,NDATA) 

C 

C CALCULATE  AVERAGE  SIGE 

C 

CALL  AVSDN(SIGAVE.SIGSIG.SIGE,NDATA) 

C 

C CALCULATE  WEIGHTED  AVERAGE  OF  E 

C 

CALL  REGRES(E,E,SIGE.NDATA.0,n, 1,YFIT,A0,A,SIGA0,3IGA 
&,R,RnUL,  CHI  LITE.  FTEST) 

UTEAVE=AO 

C 

C CALCULATE  SIGMA  FOR  WEIGHTED  E AVERAGE 

C 

SIGWTE=0. 

DO  10  I=1,MDATA 
10  SIGUTE=SIGLrrE+l./SIGE(I)^2 
SIGWTE=SQRT( 1 ./SIGW7E) 

FDATA=NDATA 

FREE=NDATA-1 

ESIG=ESIG/SQRT(FDATA) 

C 

C CALCULATE  95*^  CONFIDENCE  RANGE 

C 

300  T=1.9S>KSIGWTE 
UTEH I =WTEAVE+T 
UTELO=WTEAVE-T 
T=1.96>!<ESIG 
UNUEHI=EAVE+T 
UNWELO=EAVE-T 
C 

C OUTPUT  AVERAGES 

C 

IFCNPRINT.lt. 3)  GO  TO  100 

WRITE  (NPRINT.30)  LrTEA’'/E,SIGUTE,CHIWTE,SIGAVE,FREE 
30  FORMAT  C/'  WEIGHTED  MEAN  E IS  ',F7.3.'  + OR  - ',F7.3/ 

2 ' REDUCED  CHISD  FOR  E CALCULATION  IS',F7.3,'  (SHOULD  BE  1.)'/ 

3 ' UNWEIGHTED  MEAN  OF  SIGMAS  IS  ’,F7.3,/ 

4,'  CALCULATED  OVER  '.F5.0,'  DEGREES  OF  FREEDOM') 

C 

C OUTPUT  CONFIDENCE  LIMITS 

C 

WRITE  (NPRINT.43)  WTELO.UTEHI 

40  FORMAT  (/'  ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY'/ 

2 ' DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE' , F7 . 3, ' TO', 

3 F7.3/'  FOR  95);:  CONFIDENCE  LEVEL') 

WRITE  (NPRINT,50)  EAVE, ES IG, UNWELO, UNWEHI ,CH lUNW 
50  FORMAT  (/'  UNWEIGHTED  ESTIMATE  OF  E AND  UNBIASED  ESTIMATE  CF*/ 

2 ' SIG  E ARE',F7.3.'  AND'.F7.3,'  WHICH  GIVES  CONFIDENCE  RANGE'/ 

3 ' 0F',F7.3,'  T0',F7.3 

8./'  CHI-SQUARE  FOR  UNI.EIGHTED  E IS',F7.2) 

100  IF(NFILEB.LE.6)RETURN 


WR I TE  < NF I LEB , 30  ) WTE  AW , S I GWTE , CH I WTE , S I GA  VE , FR  EE 
URITE(NrILE5,40)WTELO.WTEHI 

URITE(NFILEB,50) EAVE , ES I G , UNWELO , UNWEH I , CH I UNW 

RETURN 

END 
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File  LOTGRN,  which  automatically  assigns  all  files  needed  to 
assemble  the  TGRUNF  overlays  and  drives  the  LIBLDR  program  to  make 
the  overlays.  To  reassemble  the  program,  type  DO  LOTGRN, DO. 


ei  0 

flC  TGMAIN.IDO 
AC  TGRUNB,6D0 
AC  OVERLB. ?D3 
AC  TIMEB.8D3 
AC  TRAMIB.5D3 
AC  DEKOD8.AD0 
AC  MIDAS, BD0 
AC  REGR£B,CD0 
AC  FCTN3.DD0 
AC  MATINS, ED3 
AC  FORLIB,FL'0 
AC  TGRNL5,5?0 
AS  362 

RUN  LIBLDR, DO 
CL 

AC  TGSETU.1D0 
AC  INITB,6D3 
AC  PRIMEB,7D0 
AC  THMCPB.8D0 
AC  DESYNB,9D0 
ST 

AC  RESPOB,GD0 
AC  UAYTB,7D3 
AC  SETPh3,3D0 
AC  RPARB,SD0 
AC  RMIDAB,AD3 
AC  AVSDNB,BD0 
AC  ENK0DB,CD3 
ST 

AC  BIASV3,6D0 
AC  SETPAB.7D0 
AC  EN!C0DB,SD3 
AC  RPARB,9D0 
AC  RMIDAB.AD0 
AC  AVSDNB,BD0 
AC  LJAYTB,CD8 
ST 
CL 


AC  TGPLAT. !D0 
ftC  PLATTB,6D0 
ftC  FACFUB,7D0 
AC  RPARB,SD0 
fiC  RMIDA3,9D0 
AC  AVSDNB,AD0 
ST 
CL 

AC  TGFACT. 1D0 
AC  FACSEB,6D3 
AC  SETPAB,7D0 
AC  ENf<ODB,8D0 
AC  BAKEB,9D0 
ST 
CL 

AC  TGPREC.1D0 
AC  PRECIB,6D0 
AC  EXTPOB.7D0 
AC  RESIDB.8D0 

ST 

CL 

AC  TGSTAT. IDO 
AC  ACTI'/3.6D0 
AC  UTAVEB,7D0 
AC  AVSDNB,SD3 
AC  CHISO3,9u0 
AC  TDEGBB,AD0 
ST  ^ 

CL 

ZU 

TR 
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File  TGRNL5 , which  is  assigned  by  LOTGRN  during  assembly  of  the 
TGRUNF  overlays.  This  file  contains  the  appropriate  responses  to  the 
LIBLDR  program. 


OUT  I TGRUN 

B1  3576 

BC  BE  10 

LO  6 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

LI  D 

LI  E 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

IF  1 

END 

OUT  1 OSETUl 

OV 

LI  6 

LI  7 

LI  8 

LI  9 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

END 

OUT  1 0SETU2 

OV 

LI  6 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

END 


OUT  1 0SETU3 

OV 

LI  6 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 

OUT  1 OPLATT 

OV 

LI  6 

LI  7 

LI  8 

LI  9 

LI  A 

RU  F. 

ED  F 
MAP 
MAP  3 
XOUT 
UF  1 
END 

OUT  1 OFACTS 

OV 

LI  6 

LI  7 

LI  8 

LI  9 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 


OUT  1 OPRECS 

OV 

LI  6 

LI  7 

LI  8 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 

OUT  1 OSTATS 
OV 

LI  6 ■ 

LI  7 
LI  8 
LI  9 
LI  A 
RU  F 
ED  F 
mp 
MAP  3 
XOUT 
UF  1 
END 
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Memory  map  of  the  base  segment,  TGMAIN,  of  the  TGRUNF  program 


REL  PROGS: 


357b 

TGRUN 

5202  OVERLY 

5400  TIMER 

5574 

TRAMID 

5313 

DEKODE 

5DD6  REGRES 

739E  FCTM 

7426 

MATINV 

7C24 

IFETCH 

7C36  .D 

7Ch4  .COMEX 

7E72 

DLOG 

81E2 

DEXP 

83BA  DSQRT 

05DC  57 

861 A 

S3 

6652 

DAINT 

0716  0H 

8730  01 

873E 

03 

6760 

LD 

CD 

077A  .G 

8790  0F 

0396 

0L 

88C6 

0K 

80F6  011 

8092  02 

GAA0 

0D 

8EBA 

0T 

8E:E2  0E 

0C0O  00 

0C22 

QN 

8C7C 

0U 

eC94  0V 

8CB4  0P 

0LE4 

03 

8CF4 

.DARG 

8DZ6  .DSIJAP 

0D92  .DRTN 

0DBA 

,R 

8DF6 

.A 

8E9C  SORT 

8Fh4  ALOG 

3032 

EXP 

91B3 

AINT 

9230  IFIX 

9236  IF  1X2 

9254 

.Y2 

92D4 

ABS 

92EA  .U 

■ 9333  .COMP 

9364 

56 

93AE 

.RARG 

93DA  SS 

9404  .5 

940C 

.ZERO 

9414 

.H 

9466  .3 

943C  .P 

951E 

.0 

95CE 

.0 

9616  .MES 

963C  .U 

96BC 

.V 

96CA 

0R 

96F0  0Z 

9716  OH 

A960 

ABS  PROGS: 
NONE 


ENTRY-POINTS: 


5226 

OVERLY 

5424 

TIMER 

5593 

TRAMID 

533C 

DEKODE 

5B36 

RELESE 

5BCA 

MIDAS 

5DFA 

REGRES 

73C2 

FCTN 

744A 

MATINV 

rC26 

IFETCH 

7C93 

.D 

r'CAo 

.COMEX 

7E74 

DLOG 

01E4 

DEXP 

33BC 

DSDRT 

35BE 

S7 

861C 

$3 

8654 

DAINT 

3718 

0A 

8732 

01 

8740 

03 

6762 

to 

CD 

A 

87tC 

.G 

8792 

0F 

6893 

0L 

88C3 

0K 

88F8 

0M 

8A94 

02 

8AA2 

0D 

ecBc 

0T 

SEE4 

0E 

8C03 

00 

6C24 

0N 

8C7E 

0IJ 

SC9b 

0V 

8CE5 

0P 

6CE6 

0B 

SCF6 

.DARG 

SD33 

. DSUhP 

8D94 

;DRTN 

8DBC 

.R 

8DF3 

.A 

8E9E 

SORT, 

8FA5 

ALOG 

9BB4 

EXP 

91BA 

AINT 

9232 

IFIX 

9233 

IF  1X2 

9256 

.Y2 

92D6 

ABS 

92EC 

.U 

933A 

.COMP 

9366 

S6 

93E0 

.RARG 

9SDC 

53 

9403 

.5 

9410 

.ZERO 

9416 

.H 

9468 

.S 

949 E 

.P 

9520 

.0 

95L0 

.0 

9613 

• MES 

969A 

.U 

96C2 

»V 

96CC 

0R 

96F2 

0Z 

3764 

0H 

COMMON-BLOCKS: 
FIEE  // 


UNDEFINED: 

INIT 

FACSET 

IJTAVER 


PRIME 

PLATTO 

SETPAR 


DESYNE 

PRECIS 


RESPON 

PLATCO 


BIASVL 

EXTPOL 


BAKE  IT 
ACTIVE 
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Memory  map  for  the  initialization  overlay,  part  1 of  TGSETU. 


REL  PROGS: 

3576  TGRUN 

5202  OVERLY 

5400  TIMER 

5574 

TRAMID 

5818  DEKODc 

5DD6  REGRES 

739E  FCTN 

7426 

MATINV 

7C24  IFETCH 

7096  .D 

7CA4  .COMEX 

7E72 

DLOG 

81E2  DEXP 

03BA  DGQRT 

S5BC  $7 

861A 

$9 

8652  DRINT 

8716  0H 

8730  01 

873E 

03 

8760  DOBS 

877A  .G 

8730  0F 

8396 

0L 

68C6  0K 

88F6  on 

8092  02 

SOAO 

0D 

8BBA  0T 

BBE2  0E 

8006  00  ' 

8022 

0N 

8C7C  §U 

8094  0V 

8CB4  0P 

80E4 

00 

8CF4  .DARG 

8D36  .DSIJAP 

8D92  .DRTN 

8DBA 

.R 

8DF6  .A 

8E90  SORT 

8FA4  ALOG 

90B2 

EXP 

91B3  AIHT 

9230  IFIX 

9236  IF  1X2 

9254 

. Y2 

92D4  AB3 

92EA  .U 

9333  .OOMP 

9364 

$6 

93AE  .RARG 

93DA  $3 

9404  .5 

9400 

.ZERO 

9414  .H 

9466  .S 

9490  . P 

951E 

.0 

95CE  .0 

9616  .MES 

9630  .U 

96B0 

.V 

96CA  0R 

96F0  0Z 

9716  0H 

AAC3 

IN  IT 

AE3A  PRIME 

0362  THMOPL 

07 IE  DESYNE 

D404 

MIN3 

D4CA  MIN02 

D4E0  . 1 

D4F2  $1 

D50A 

$22 

D53E  lABS 

D544  IABS2 

D57E  SIGN 

D5BC 

.RRARG 

D5FA 

ftBS  PROGS: 
NONE 

- 

ENTRY-POINTS: 

5226  OVERLY 

5424  TIMER 

5593  TRAM ID 

'5330 

DEKODE 

5836  RELESE 

5ECA  MIDAS 

5DFA-  REGRES 

• 7302 

FCTN 

744A  MATINV 

7026  IFETCH 

7093  .D 

7006 

.COM£X 

7E74  DLOG 

81E4  DEXP 

83BC  DSQRT 

S5BE 

$7 

8610  $3 

8654  DAI NT 

8718  0A 

8732 

01 

8740  03 

8762'  DABS 

87  ("  L . G 

8792 

0F 

8833  0L 

8803  0I< 

S3F8  0M 

8094 

02 

8AA2  0D 

8BBC  0T 

SBE4  0E 

8003 

00 

8024  011 

SC7E  OtJ 

8096  0V 

8CE6 

0P 

80E6  0B 

80F6  .DARG 

3D33  .D3UAP 

8D94 

. DRTN 

8DB0  .R 

8DF8  .A 

8E9E  SORT 

SFA6 

ALOG 

90B4  EXP 

91BA  niNT 

9232  IrIX 

9233 

IFIX2 

9256  .Y2 

92DS  AB:S 

92EC  .U 

933A 

.COM? 

9366  $6 

93E0  .RARG 

93DC  $3  , 

9403 

.5 

9410  .ZERO 

9416  .H 

9463  .S 

■ 949E 

• P 

9520  .0 

95D0  .0 

9613  .MES 

969A 

.0 

9602  .V 

9600  0R 

96F2  02 

9764 

0H 

AAEO  IN  IT 

AE5E  PRIME 

0336  THMOPL 

0742 

DESYNE 

D406  MIND 

D4C0  M1N02 

D4E2  i 1 

D4F4 

$1 

D50O  $22 
D5BE  .RRARG 

D540  lABS 

D546  IABS2 

D580 

SIGN 

COMMON-BLOOKS 

. 

FIEE  // 

• 

RESPON 

BIASVL  BAKE  IT 

FAOSET 

PLATTO  PRl 

PLATCO 

EXTPOL  AOTIVE 

UTAVER 

SETPAR 
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Memory  map  for  the  factor-response  determining  overlay,  part  2 of  TGSETU. 


REL  PROGS: 
3576  TGRUN 

5202 

OV’ERLY 

5400 

TIMER 

5574 

TR8MID 

5318 

DEKODE 

5hD4 

REGRES 

7 j9E 

FCTN 

7425 

M8T1NV 

7C24 

I FETCH 

7C96 

.D 

7C84 

.COMEX 

7E72 

DLOG 

81E2 

DEXP 

F:-TE8 

DSORT 

S5DC 

5? 

8518 

59 

8652 

DO  I NT 

8716 

08 

8730 

01 

873E 

OS 

8760 

D8BS 

3778 

.G 

3790 

OF 

8396 

GL 

88C6 

0K 

3SF6 

OM 

8892 

02 

8880 

GD 

8BBA 

0T 

SEE2 

OE 

8C06 

00 

8C22 

GN 

8C7C 

OU 

eC94 

OV 

SC^4 

OP  . 

6CE4 

03 

8CF4 

.D8RG 

SI'36 

. DSL'8P 

3D92 

• DRTN 

8i;E8 

. R 

8DF6 

.8 

3E3C 

SORT 

3784 

8L0G 

9032 

EXP 

91E3 

8 1 NT 

9230 

IFIX 

9235 

IFIX2 

9254 

^Y2 

92D4 

8SS 

92E8 

.IJ 

9333 

. COMP 

9354 

55 

93ftE 

.R8RG 

93D8 

9J04 

.5 

940C 

.ZERO 

9414 

.H 

9466 

o 

• O 

949C 

.P 

951E 

.Q 

95CE 

.0 

9516 

.riES 

953C 

.U 

96BC 

.V 

96CA 

OR 

96F0 

PZ 

9715 

OH 

88C3 

FESPCN 

8812 

U8YT 

ECE4 

SETP8R 

C25C 

t vl  Pll  V 

C42E 

RMID8S 

D322 

8VSDN 

D488 

ENKODE 

D62C 

riIN32 

D642 

M8X0 

D643 

M8X02 

T65E 

. 1 

DSrO 

MINI 

D676 

MIN12 

D68C 

.4 

D68E 

51 

D6C6 

522 

D6F8 

S3 

D726 

FL08T 

D72C 

FL08T2 

D764 

ftBS  PROGS: 
NONE 


ENTRY-POINTS: 
5226  OVERLY 

5424 

TIMER 

5593 

TR8MID 

5330 

DEKODi 

5B35 

RELESE 

5BC8 

MI  DOS 

5DF8 

REGRES 

7302 

FOTN 

7448 

M8TINV 

7C26 

IFETCH 

7093 

.D 

7085 

. come: 

7E74 

DLOG 

31E4 

DEXP 

8330 

DSQRT 

85EE 

S7 

861C 

S9 

8554 

I'hINT 

8713 

08 

8732 

01 

8740 

OS 

3762 

D8SS 

3770 

• Is 

8792 

OF 

8393 

OL 

83C3 

OK 

S3F3 

OM 

8834 

02 

8882 

0D 

SBBC 

OT 

88E4 

0E 

3003 

@0 

8024 

ON 

SC7E 

OU 

oOyij 

OV 

SCEd 

GP 

8CE6 

OB 

SCF6 

. D8RG 

SD33 

. D3L'8P 

8D94 

.DRTN 

8DBC 

.R 

SDF3 

.8 

8E9E 

SORT 

SF85 

8L0G 

90G4 

ai 

9IE8 

8 1 NT 

9232 

IFIX 

9233 

IFIX2 

9256 

• Y2 

92D6 

883 

92E0 

.IJ 

9338 

.COM? 

9366 

S5 

9380 

.R8RG 

931'0 

S3 

9403 

.5 

9410 

.ZERO 

9416 

.H 

9453 

.S 

949E 

.P 

9520 

.0 

95D0 

.0 

9518 

.MES 

9698 

.U 

96C2 

.V 

S6CC 

OR 

96F2 

02 

9764 

GH 

88EC 

RESPON 

ETi,jb 

L'8YT  • 

BD03 

SETP8R 

0290 

RP8R 

C452 

RNID8S 

D34S 

8V3DN 

D40E 

ENKODE 

D52E 

MIN02 

D644 

M8X0 

D648 

M8X02 

D650 

. 1 

D672 

MINI 

1)678 

MIN12 

DGSE 

.4 

D6B0 

SI 

DbCa 

$22 

D6FC 

S3 

D723 

FL08T 

D72E 

FL08T2 

COmON-ELOCKS: 
FIEE  // 


UNDEFINED: 

BI8SVL 

B8KEIT 

F8CSET 

PL8TT0 

PRECIS^ 

PL8TC0 

EXTPOL 

8CTIVE 

UT8VER 
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Memory  map  for  TGSETU,  part  3,  which  determines  bias  voltages. 


REL  PROGS: 
3576  TGRUN 
5818  DEKODE 
7C24  I FETCH 
81E2  DEXP 
8652  DAINT 
8760  DABS 
83C6  0l< 

8B3A  @T 
8C7C  0U 
8CF4  .DARG 
8DF6  .A 
9IB3  AINT 
92D4  ABS 
93AE  .RARG 
9414  .H 
95CE  .0 
96CA  0R 
8844  SETPAR 
D004  AVSDN 
D47A  mX02 
D4BE  .4 
D553  FLOAT 


5202 

0\'ERLY 

5DD6 

REGRES 

7C3S 

.D 

83BA 

DSQRT 

8716 

0A 

S77A 

.G 

S8F6 

0M 

SBE2 

0E 

SC94 

0V 

3D36 

. DSUA? 

3E3C 

SORT 

9230 

IFIX 

92EA 

.U 

93DA 

S3 

9455 

.S 

3616 

.MES 

S6F0 

02 

EDCC 

ENKODE 

DISC 

UA"(T 

D430 

. 1 

D4E0 

SI 

D55E 

FL0AT2 

5400  TIMER 
733E  FCTN 
7CA4  .COMEX 
S53C  S7 
3730  01 
37S0  0F 
8A32  02 
8uUt>  00 
8C34  0P 
8DS2  .DRTN 
oFA4  ALCG 
3235 ■ IF  1X2 
3333  .COM? 
3434  .5 
94SC  .P 
S68C  '.U 
3716  0H 
EF4E  RPAR 
D45E  MIH02 
D4A2  MINI 
D4F3  S22 
D536 


5574  TRAMID 
7425  MATINV 
7E72  DLOG 
361 A S3 
S73E  0S 
8335  0L 
SAA3  0D 
8C22  0N 
8CE4  03 
8DBA  .R 
3032  EXP 
3254  .Y2 
3354  S5 
343C  .ZERO 
35 IE  .Q 
9SBC  .V 
AAC8  BIASVL 
Clia  RMIDAS 
D474  MAX0 
D4A3  MIN  12 
DdZC  $3 


ABS  PROGS: 
NONE 


ENTRY-POINTS: 


5226 

OVERLY 

5424 

TIMER 

5B86 

RELESE 

53CA 

MIDAS 

744A 

MATINV 

7C2S 

IFETCH 

7E74 

DLOG 

81E4 

DEXP 

861C 

S3 

£654 

DAINT 

8740 

0S 

8752 

DABS 

8898 

0L 

83CS 

0K 

8AA2 

0D 

SBBC 

0T 

8C24 

0H 

8C7E 

0U 

8CE6 

0B 

SCF6 

.DARG 

8DBC 

.R 

8DF8 

.A 

90B4 

EXP 

31BA 

AINT 

9256 

.Y2 

92DS 

ABS 

9366 

S6 

93B0 

. RARG 

9410 

.ZERO 

9416 

.H 

9520 

.0 

95D0 

.0 

96C2 

.V 

96CC 

0R 

AAEC 

BIASVL 

8363 

SEpAR 

C134 

RMIDAS 

D023 

A v'SDN 

D476 

MAXO 

D47C 

MAX02 

D4AA 

MIN12 

D4C0 

.4 

D52E 

$3 

D55A 

FLOAT 

5553 

TRAMID 

533C 

DEKODE 

5DFA 

REGRES 

73C2 

FCTN 

7CS8 

.D 

7CA5 

. CCMEX 

833C 

D3CRT 

ScSE. 

S7 

8713 

@A 

8732- 

01 

877C 

.G 

3792 

0F 

8SFS 

0M 

8A94 

02 

8BE4 

0E 

8C08 

00 

8C9S 

0V 

SCB6 

0P 

8D33 

. DSL'A? 

8D34 

.DRTN 

8ESE 

SORT 

SFA6 

ALOG 

9232 

IFIX 

3233 

IFIX2 

92EC 

.IJ 

333A 

.COM? 

93DC 

S3 

S4S3 

.5 

9453 

.S 

949E 

.P 

9613 

.MES 

959A 

.U 

35F2 

0Z 

9764 

0H 

EDF0 

ENKODE 

EF72 

RPAR 

DIED 

L'AYT  ' 

D4o3 

MIN02 

D432 

. 1 

D4A4 

MINI 

D4E2 

SI 

D4FA 

S22 

D560 

FLCAT2 

COMMON-BLOCKS: 
FIEE  // 


UNDEFINED: 

BAKE  IT  FACSET  PLATTO  PRECIS  PLATCO  EXTPOL 
ACTIVE  UTAVER 


A107 


Memory  map  for  TGPLAT,  the  data  collection  overlay. 


REL  PROGS: 


3576 

TGRL'N 

5^32 

OVERLY 

5430 

TIMER 

5574 

TRAMID 

5318 

DEKODE 

'5DD5 

REGRES 

739E 

FCTN 

7426 

MATIUV 

7C24 

IFETCH 

7C96 

.D 

7CA4 

.COMEX 

7E72 

DLOG 

81E2 

DEXP 

S33A 

D3QRT 

S5BC 

S7 

o6 1 A 

S3 

8652 

DAINT 

8716 

0A 

S730 

01 

873E 

0S 

8760 

DABS 

877A 

.G 

8790 

0F 

8S96 

0L 

88C6 

QK 

S3F6 

0M 

SA92 

02 

8AA0 

0D 

8BBA 

0T  - 

8EE2 

0E 

3C06 

00 

8C22 

0N 

8C7C 

0U 

SC94 

0V 

SC34 

0P 

8CE4 

03 

8CF4 

.DARG 

8D36 

. DSIJA? 

cD92 

.DRTN 

PI'BA 

.R 

8DF6 

.A 

SE9C 

SORT 

SFA4 

A LOG 

9032 

EXP 

91B3 

AINT 

9230 

IFIX 

9236 

IF  1X2 

9254 

.Y2 

92D4 

ABS 

92EA 

.U 

9333 

.coriP 

9354 

SS 

93AE 

.RARG 

93DA 

S3 

9404 

.5 

943C 

.ZERO 

9414 

.H 

9466 

.S 

949C 

.P 

S51E 

.0 

95CE 

.0 

9616 

.riES 

SSSC 

.U 

96BC 

.V 

96CA 

0R 

96F0 

02 

9716 

QH 

AAC3 

PLATTO 

C3B8 

FACFUN 

C^F6 

RPAR 

C6E3 

RMIDAS 

D5AC 

AVSDN 

D734 

BTEST 

D752 

BSET 

D7S3 

.BITPS 

D7E4 

MIN3 

D7EA 

MINB2 

DSO0 

. 1 

D312 

SI 

D32A 

$22 

D85E 

FLOAT 

DoS4 

FL0AT2 

L-'o^^C 

MOD 

DSA2 

M0D2 

D8D0 

. IIARG 

D90A 

.M 

D93E 

ABS  PROGS: 
NONE 


ENTRY-POINTS: 


5226 

OVERLY 

5424 

TIMER 

5593  TRAMID 

533C 

DEKODE 

5B86 

RELESE 

5ECA 

MIDAS 

5DFA  REGRES 

■73C2 

FCTN 

744A 

MATINV 

7C25 

IFETCH 

7C93. .D 

7CA5 

.CCMEX 

7E74 

DLOG 

81E4 

DEXP 

333C  DSQRT 

853E 

S7 

861C 

S9 

3654 

DAINT 

8713  0A 

8732 

01 

8740 

0S 

8762 

DABS 

877C  .G 

3792 

0F 

8893 

0L 

8SC3 

0K 

83^3  0M 

8A94 

02 

8AA2 

0D 

83BC 

0T 

83E4  0E 

SCB3 

00 

8C24 

0N 

8C7E 

0U 

3C96  0V 

3CS6 

0P 

8CE6 

0B 

SCF6 

. DARG 

SD33  .DSL'AP 

3D94 

.DRTN 

8DBC 

• R 

8DF8 

.A 

SE9E  SORT 

Sh  A5 

ALCG 

90B4 

UJ 

91BA 

AINT 

9232  IFIX 

9238 

IFIX2 

9256 

.Y2 

92D6 

ABS 

92EC  M 

933A 

.COMP 

9366 

SS 

93B0 

.RARG 

93DC  S3 

9408 

.5 

9410 

.ZERO 

9416 

.H 

9458  .S 

949E 

.P 

9520 

.Q 

95D0 

.0 

9613  .MES  ■ 

959A 

.U 

96C2 

.V 

96CC 

0R 

96F2  02 

9764 

0H 

AAEC 

PLATTO 

ADE2 

PLATCO 

C3D4  FACFUN 

C51A 

RPAR 

C6DC 

RMIDAS 

D5D0 

AVSDN 

D735  BTEST 

D754 

BSET 

D78A 

.BITPS 

D7E6 

MIN0 

D7EC  MIN32 

DS02 

. 1 

DBM 

$1 

D82C 

$22 

D8b0  FLOAT 

D866 

FL0AT2 

D89E 

MOD 

D8A4 

M0D2 

D8D2  .IIARG 

D90C 

.M 

COmON-BLOCKS: 
FIEE  // 


UNDEFINED: 

- BAKE IT  FACSET  PRECIS  EXTPOL  ACTIVE  UTAVER 


A108 


Memory  map  for  TGFACT,  the  factor  setting  overlay. 


REL  PROGS: 

3576 

TGRUN 

5202 

OVERLY 

5400  TIMER 

5574 

TRAMID 

5818 

DEKODE 

5DD6 

REGRES 

733E  FCTN 

7^-26 

MATINV 

7C24 

IFETCH 

7C96 

.D 

7CA4  .COMEX 

7E72 

DLCG 

81E2 

DEXP 

83BA 

DSQRT 

85BC  S7 

S51A 

$9 

8652 

DA  I NT 

0716 

0A 

8730  01 

873E 

0S 

8760 

DABS 

877A 

.G 

3790  QF 

8396 

0L 

88C6 

0K 

S8F6 

0M 

SAS2  02. 

SAA3 

9D 

8B3A 

@T 

SBE2 

0E 

8C06  00 

SC22 

QN 

SC7C 

0U 

8C94 

0V 

SCB4  GP 

SCE4 

03 

8CF4 

.DARG 

8D36 

.D3UAP 

8D92  .DRTN 

cDSA 

. R 

8DF6 

.A 

8E9C 

SORT 

8FA4  ALOG 

9032 

91B3 

AINT 

9230 

IFIX 

9236  IF  1X2 

9254 

.Y2 

921)4 

ABS 

92EA 

.U 

9333  .COMP 

9354 

S5 

93flE 

.RARG 

93DA 

S3 

9404  .5 

942C 

.ZERO 

9414 

.H 

9466 

.S 

949C  •.? 

S5IE 

.Q 

95CE 

.0 

9616 

.MES 

96SC  .U 

S53C 

.V 

96CA 

@R 

96F0 

0Z 

9716  0H 

A.AC8 

FACSET 

B01C 

SETPAR 

B5A4 

ENKODE  ' 

B726  EAKEIT 

C224 

l'.AX3 

C22A 

MAX32 

C240 

. 1 

C252  MINI 

C253 

MIN12 

C26E 

.4 

C290 

$1 

C2A3  S22 

C2DC 

S3 

C303 

ftBS  PROGS: 

NONE 

ENTRY-POINTS: 

5226 

OVERLY 

5424 

TIMER 

5593  TRAMID 

533C 

DEKODE 

5886 

RELESE 

5BCA 

MIDAS 

5DFA  REGRES 

73C2 

FCTU 

744A 

MATINV 

7C26 

IFETCH 

7C3S  .D 

7CA5 

.COMEX 

7E74 

DLOG 

81E4 

DEXP 

83EC  DSQRT 

85BE 

S7 

861C 

S9 

8654 

DAINT 

8718  0A 

3732 

0 1 

8740 

@S 

8762 

DABS 

877C  .G 

8792 

GF 

8393 

0L 

8SC8 

0K 

8SF3  QM 

SA94 

02 

8AA2 

0D 

8BBC 

0T 

S3E4  0E 

SC03 

GO 

8C24 

0N 

8C7E 

0U 

SC35  0V 

ECS6 

GP 

8CE6 

0B 

SCF6 

.DARG  • 

3D3S  .DSL'AP 

8D94 

.DRTN 

8DBC 

.R 

8DF8 

.A 

SE9E  SORT 

8r  AS 

ALOG 

90B4 

EXP 

91EA 

AINT 

9232  IFIX 

9233 

IFIX2 

9256 

.Y2 

92D6 

AES 

92EC  .IJ 

933A 

. COIP 

9366 

S5 

93B9 

.RARG 

9SDC  S3 

9433 

.5 

9410 

.ZERO 

9416 

.H 

9458  .S 

943E 

.? 

3520 

.0 

95D0 

.0 

9613  .MES 

969A 

.U 

S6C2 

.V 

96CC 

0R 

96F2  0Z 

97E4 

0H 

AAEC 

FACSET 

B040 

SETPAR 

B5C8  ENKODE 

B74A 

EAKEIT 

C226 

MAX0 

C22C 

MAX02 

C242  . 1 

C254 

MINI 

C25A 

M1N12 

C270 

.4 

C292  SI 

C2AA 

S22 

C2DE 

$3 

COMMON- 

-BLOCKS: 

FIEE 

// 

• 

UNDEFINED: 

PRECIS  EXTPOL 

ACTIVE 

UTAVER 

: 
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Memory  map  for  TGPREC,  the  polynomial  fitting  and  extrapolation  overlay. 


REL  PROGS: 


3576 

TGRUN 

5202 

OV'ERLY 

5400 

TIMER 

5574 

TRAMID 

5318 

DEKODE 

5DDb 

REGRES 

733E 

FCTN 

7426 

MATINV 

7C24 

I FETCH 

7096 

.D 

7CA4 

.CDMEX 

7E72 

DLOG 

81E2 

DE)^P 

83EA 

DSQRT 

8530 

S7 

861A 

S3 

8652 

DAINT 

8716 

OA 

8733 

01 

373E 

OS 

8760 

DABS 

877A 

.G 

87S0 

OF 

8896 

QL 

8SC6 

eK 

8SF6 

on 

8A92 

02 

8AA0 

OD 

8BB8 

@T 

83E2 

0E 

8006 

00  • 

8022 

ON 

8C7C 

0U 

8094 

ov 

8034 

OP 

8CE4 

OB 

8CF4 

.DARG 

SD36 

.DSL'AP 

SD92 

.DRTN 

SDEA 

.R 

8DF6 

.A 

8E9C 

SORT 

SFA4 

ALOG 

90B2 

EXP 

91B3 

A I NT 

9230 

IFIX 

QbTg 

IF  1X2 

9254 

.Y2 

92D4 

AGS 

92EA 

.U 

9333 

.COM? 

9364 

S5 

93AE 

.RARG 

93DA 

S3 

9404 

.5 

9400 

.ZERO 

9414 

.H 

9466 

.S 

943c 

.P 

951E 

.Q 

95CE 

.0 

9616 

.MES 

9530 

.U 

9530 

.V 

96C8 

eR 

9SF0 

QZ 

9716 

GH 

AAC3 

PRECIS 

CE96 

EXTPOL 

D3F0 

RESIDS 

D7.3C 

ETE3T 

D7AA 

BSET 

D7E0 

.BITPS 

D33C 

AMAXl 

D350 

.2 

D362 

SI 

D37A 

$3 

D3A6 

FLOAT 

DSAC 

FL0AT2 

D3E4 

ABS  PROGS: 

NONE 

ENTRY-POINTS: 

5226 

OVERLY 

5424 

TIMER 

5593 

TRAMID 

5830 

DEKODE 

5B36 

RELESE 

5BCA 

MIDAS 

5DFA 

REGRES  ■ 

7302 

FCTN 

744A 

MATINV 

7026 

I FETCH 

7093 

.D 

L AS 

.COMEX 

7E74 

DLOG 

81E4 

DEXP 

83BC 

DSQRT 

S53E 

S7 

8610 

$9 

8654 

DAIMT 

3713 

OA 

8732 

01 

8740 

@S 

8762 

DABS 

8770 

.G 

8792 

OF 

8898 

@L  . 

8803 

OK 

SSF3 

OM 

SA34 

02 

8A82 

@D 

8EGC 

OT  . 

. SBE4 

■QE 

8003 

00 

. 8024 

0N 

8C7E 

OU 

8095 

OV 

SCbb 

OP 

80E6 

OB 

8CF6 

. DARG 

8D33 

.DSL'AP 

3D94 

.DRTN 

8DB0 

.R 

8DF3 

.A 

8E9E 

SQRT 

8FA5 

ALOG 

90B4 

EXP 

91BA 

A I NT 

9232 

IFIX 

9233 

IFIX2 

9256 

• Y2 

92D6 

ASS 

92EC 

.U 

933A 

. COMP 

9366 

SS 

93B0 

.RARG 

93DC 

S3 

9403 

.5 

9410 

.ZERO 

9416 

.H 

9453 

.S 

94SE 

.P 

9520 

.0 

95D0 

.0 

9618 

.MES 

969A 

.U 

9602 

• V 

9500 

OR 

S5F2 

02 

9 r 64 

OH 

AAEO 

PRECIS 

CEBA 

EXTPOL 

D414 

RESIDS 

D78E 

BTEST 

D7A0 

BSET 

D7E2 

.BITPS 

DS3E 

AMAXl 

DS52 

.2 

D864 

$1 

D87C 

$3 

D8A8 

FLOAT 

DSAE 

FL0AT2 

COMMON-BLOCKS: 

. 

FIEE  // 

UNDEFINED: 

ACTIVE  UTAVER 

Alio 


Memory  map  for  TGSTAT,  the  overlay  which  calculates  the  activation 

energy  and  associated  statistics. 


REL  PROGS: 

357o 

TGRUN 

5202 

OS'ERLY 

5400  TIMER 

5374 

TRAMID 

5818 

DEKODE 

5DD6 

REGRES 

739E  FCTN 

7425 

MATINV 

7C24 

I FETCH 

7C96 

.D 

7CA4  .COMEX 

7E72 

DLOG 

81E2 

DEXP 

83BA 

DSQRT 

35BC  S7 

C51A 

S3 

8652 

DAINT 

3716 

0A 

8730  01' 

873E 

03 

8760 

DABS 

877A 

.G 

8790  0F 

££55 

0L 

88C6 

QIC 

SSF6 

en 

EA92  02 

8AA0 

0D 

8BBA 

0T 

SBE2 

0E 

8C86  00 

SC22' 

0N 

8C7C 

0U 

8C94 

0V 

SCB4  0P' 

3CE4 

08 

8CF4 

.DARG 

SDBS 

. DS'JAP 

8D92  .DRTN 

SDEA 

.R 

8DF6 

.A 

SE9C 

SORT 

SFA4  ALGG 

9022 

EXP 

9183 

A I NT 

9230 

IFIX 

9236  IF  1X2 

9254 

.Y2 

92D4 

ASS 

92EA 

M 

9333  .COIP 

9364 

S6 

93AE 

.RARG 

93DA 

S3 

9404  .5 

940C 

.ZERO 

9414 

.H 

9466 

. P 

949C  .P 

951E 

.0 

95CE 

.0 

9616 

!mes 

96SC  .U 

S6BC 

.V 

S6CA 

@R 

96F0 

02 

9716  0H 

A ACS 

ACTIVE 

B35E 

UTAVER 

BADS 

AVSDN 

BC60  CHISQ 

.EDc^c:. 

TDEGAB 

BE6C 

FLOAT 

EE72 

FL0AT2 

BEAA 

ftBS  PROGS: 

NONE 

ENTRY-POINTS: 

5226 

OVERLY 

5424 

TiriER 

5533  TRAMID 

5S3C 

DEKODE 

5B86 

RELESE 

5ECA 

MIDAS 

5DFA  REGRES 

73C2 

FCTN 

744A 

MA7INV 

7C25 

I FETCH 

7CS3  . D 

7CA5 

.COMEX 

7E74 

DLOG 

81E4 

DEXP 

S3BC  DSQRT 

S3EE 

S7 

861C 

S3  - 

8654 

DAINT 

8713  0A 

8732 

01 

8743 

0S 

8762 

DABS 

S77C  .G 

3792 

0F 

8893 

0L 

SSC8 

0K 

8SF8  0M 

■ 8A94 

02 

8AA2 

@D 

SBBC 

0T 

8EE4  0E 

SC03 

00 

. 8C24 

0N 

SC7E 

0U 

8C96  0V 

8CE5 

0P 

8CE6 

SCF6 

.DARG 

8D33  .DSUAP 

SD34 

.DRTN 

8DBC 

.R 

8DF8 

.A 

8E9E  SORT 

8FA5 

ALOG 

90B4 

EXP 

91BA 

AINT 

9232  IFIX 

9233 

IFIX2 

9256 

.Y2 

92D6 

ABS 

92EC  .U 

933A 

. COIP 

9366 

Sb 

93B0 

. RARG 

93DC  S8 

9403 

.5 

9410 

.ZERO 

9416 

.H 

9463  .S 

94SE 

.P 

9520 

*Q 

95D0 

.0 

9618  .MES 

969A 

.U 

96C2 

.V 

96CC 

0R 

S6F2  §Z 

9764 

0H 

ftftEC 

ACTIVE 

B382 

UTAVER 

BAFC  AVSDN 

BCS4 

CHISQ 

BDE2 

TDEGAB 

EE6E 

FLOAT 

BE74  FL0AT2 

COMMON- 

-BLOCKS: 

FIEE 

// 

UNDEFINED: 

NONE 
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. Appendix  B.  TGEDIT,  a FORTRAN  program  to  edit  ^ 

* ^ " factor- lump  thermogravimetry  results. 
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Example  of  how  to  run  the  TGEDIT  prog 


ram. 


User  input  is  underlined. 


»AC  PEVnC3.?Dl 

PEVftC3.C’J0,  1 . e0 

RT^RECTIOMS  to  TEtPERATURES  OR  NOT? 
GIVE  Y FOR  YES,  N FOR  NO 

N 


1)  MINIMUM  DEGREE  OF  REACTION  IN  X 

2)  MAXIMUM  DEGREE  0^  REACTION  IN  X 

3)  MINIMUM  RATE  (ABSOLUTE  VALUE  IS  C?0 

4)  MAXIMUM  ERROR  IN  RATE  ( = 100>*'-S IGR/RATE) 

5)  MINIMUM  TEMPERATURE  IN  DEGREES  CELSIUS 

6)  MAXIMUM  TEMPERATURE 

7)  MAXIMUM  ERROR  IN  TEMPERATURE 

8)  MAXIMUM  ERROR  IN  ACTIVATION  ENERGY 
$$$  ALL  CM  SEPARATE  LINES  S$S 


GIVE: 


nfelT  VALUES  ARE: 


0.00  100.00  11.00  2.00 

0.00  500.00  0.10  1.75 


IS  THIS  OK?  Y OR  N 


Y 


B2 


A sample  file,  prepared  by  the  TGRUNF  program,  and  used  as  input 
to  the  TGEDIT  program.  The  activation  energies  rejected  by  TGEDIT  are 
marked  in  the  first  file  with  *.  There  has  been  some  slight  round-off 
in  the  E values. 


NBS  786  IN  IQX  02  P=200  3/19/78  AM 


1 

27.620 

0.324 

973. 

0.369732E+O6  11.43 

310.79 

0.04  -0.6074E+O2 

0.5855E+00 

0.368127E+06 

0. 133414E+03 

30 

290.86 

0.02  -0.2619E+02 

0. 1714E-01 

0.37!335E+e6 

0.48S180E+01 

30 

2 

24.710 

0.074 

1636. 

0.349127E+06  14.78 

291.08 

0.02  -0.2418E+02 

0. 1583E-01 

0.34S614E+06 

0.551631E+01 

30 

302. 15 

0.01  -0.3635E+02 

O.2S36E-01 

0. 34364 lE+06 

0.585557E+O1 

30 

3 

24.514 

0. 101 

2663. 

0.319670E+06  13.'57 

302.02 

0.01  -0.34O1E+02 

0.2636E-91 

0.31923bE+06 

0.535557E+O1 

30 

292.92 

0.02,  -0.2409E-f02 

0. 1S36E-01 

0.320043E+06 

0.443929E+01 

30 

4 

25.546 

0.084 

3490. 

0.300236E+06  22.73 

293.05 

0.02  -0.2266E+02 

0.  1S9SE-01 

0.3007 10E+06 

0.443929E+01 

30 

304.13 

0.02  -0.3504E+02 

3.2146E-01 

0.299762E+05 

0.476667E+01 

30 

5 

26.279  ' 

0.094 

4317. 

0. 27206 lE+06  27.31 

304.04 

0.02  -0.3286E-h02 

0.2146E-01 

0.271682E+06 

9.476667E+01 

30 

294.94 

0.02  -0.2277E+02 

0. 1694E-01 

0.27244BE+06 

0.37634SE+01 

30 

6 

25.837 

0.085 

5144. 

0.253643E+06  38.30 

295.04 

0.02  -0.216IE-f02 

• 0. 16S4E-01 

0.25409OE+06 

0.376343E+O1 

30 

306.14 

0.02  -0.3351E+02 

0.24S2E-01 

0.253i36E+06 

0.547860E+01 

30 

7 

25.943 

0.105 

5971. 

0. 2264766+06  34.72 

306.01 

0.02  -0.3193E+02 

0.24S2E-01 

0.2261 13E+06 

0.5470S0E+81 

30 

296.95 

0.02  -0.223SE+02 

0.  1677E-01 

0.226S40E+06 

0.372499E+01 

30 

e 

26.508 

0.089 

6798. 

0.20S405E+0S  37.66 

297. 10 

0.02  -0.2122E+02 

8. 1677E-01 

0.208819E+06 

0 . 372439E+0 1 

30 

308.18 

0.82  -0.3315E+02 

0.2356E-O1 

0.207992E+06 

0.523324E+01 

30 

'iS  27.094 

0.111 

7624. 

0.1820I9E+06  41.95 

308.05 

0.02  -0.3051E+02 

0.2356E-0I 

0. 181669E+06 

0.523324E+01 

33 

299.04 

0.02  -0.2139E+02 

0.  1709E-01 

0. 182370E+06 

0.37S681E+01 

30 

10 

26.121 

0.233 

8451. 

0.165029E+06  44.71 

299.07 

0.02  -0.1988E+02 

0.  1709E-01 

0. 165426E+06 

0.379581E+01 

30 

310.11 

0.01  -0.3071E+02 

0. 1 135E+00 

0. 164632E+C6 

0.2520S5E+02 

30 

10 

26.466 

0.313 

9279. 

0.140820E+06  43.65 

310.02 

0.01  -0.2761E+02 

0. 1135E+80 

0. 140517E+06 

O.252335E+02 

30 

300.98 

0.02  -0.1927E+02 

6.  1261E-01 

0.2S0176E+01 


30 


0. 141 123E+0b 


10 

27.124 

0.095 

10106. 

0.125360E+06  51.16 

301.11 

0.02 

-0.  17926-1-02 

0. 1261E-01 

. 

0.  1257426-^06 

0.280176E-5-O1 

30 

312. 12 

0.02 

-0.2S03E-h02 

0. 22496-01 

3.  124977E-!-0b 

0.499706E-H01 

30 

10 

27.814 

0.124 

10933. 

0.  103044E■^06  54.79 

312.05 

0.02 

-0.2572E^O2 

0.2252E-0I 

0.  10273SE-i-Gb 

0.5007S3E-I-01 

30 

302.93 

0.02 

-0.  1765E-H02 

0. 1409E-O1 

0.  103349E-T06 

0.313343E-IO1 

30 

10 

27.557 

0.097 

11761. 

0.88S427E+O5  57.10 

303.09 

0.02 

-0.  1653E-»-82 

0 . 1407E-0 1 

0.891854E->-05 

0.312666E-f01 

30 

314. 13 

0.02 

-0.260SE-f02 

0.20S3E-O1 

0.834999E-f05 

0.4626576-5-01 

30 

10 

27.717 

0.119 

12588. 

0.633444E+05  60.43 

314.01 

8.02 

-0.2332E-t-92  • 

0. 20336-01 

0.680816E-1-05 

0.4526576-1-91 

38 

304.99 

0.02 

-a.  1609E-fG2 

3. 13106-01 

0.686073E+05 

0.2939536-5-01 

32 

10 

27.823 

0.053 

13456. 

0.545482E+05  62.63 

305.10 

0.02 

-0.  1476E-f-02 

0. 14356-01 

0.552179E+0-5 

0. 3453696-5  31 

30 

325. 17 

0.02 

-0.3326E+O2 

9.22336-01 

0.5S3784E-f05 

0.53735SE-5-01 

30 

10 

27.702 

0. 130 

14324. 

0.277493E+05  67.03 

324.99 

0.02 

-0.2761E-f02 

0.20386-01 

0.2745956-5-05 

0.4527046-5-01 

30 

315.92 

0.02 

-0.  192SE-5-02 

9.22206-01 

0. 28059 1E^■05 

0.493123E-f01 

38 

10 

28.014 

0.118 

15151. 

0.125341E+05  69.51 

316.03 

0.02 

-0.  17326-^02 

0.22286-01 

0.  129017E-5-O5 

0.493123E-f01 

30 

■ 327.13 

0.02 

-0.2695E-T02 

0.24266-01 

0.  121664E+05 

0.53904SE-5-81 

30 

10 

27.920 

0.122 

15978. 

-0.854332E+04  72.93 

326.97 

0.02 

-0.2375E-5-02 

9.24266-01 

-0.8301016-^04 

0.5390466-5-01 

30 

317.95 

0.01 

-0. 1662E-T-02 

0. 1125E-01 

-0.828663E-H04 

0.249952E-5-01 

30 

10 

27.339 

0.G84 

16805. 

-0.21317SE+05  75.11 

318.02 

0.02 

-0.  1559E-5-02 

0.1 125E-01 

-0.216032E-r05 

0.249352E-5-G1 

30 

329.14 

0.02 

-0.23S8E-fC2 

0. 14836-01 

-0.2223276-^05 

0.3293536+01 

30 

' 10 

28.136 

0.098 

17632. 

-0.4070546-^05  78.16 

329.04 

0.02 

-0.2125E-f02 

0. 14336-01 

-0.40937GE-f05 

0.3293586+01 

30 

319.94 

0.01 

-a.  1491E-^02 

0.90526-62 

-0.404733EHO5 

0.2010936+01 

30 

10  28.334 

0.043 

18499. 

-O.535494E+05  80.25 

320 . 09 

0.01 

-0.  139OE-f02 

0.99106-02 

-0.5292S9EH-O5 

0.238214E+01 

30 

340.19 

0.02 

-0.3057E-5-02 

0.23556-01 

-0.541520E-1-05- 

0.5661196+01 

30 

B4 


10  28.830  0.107 


10  27.673  0.083 


:^10  27.220  0.114 


10  12.927  87.368 


19366.  -0.731593E+05  84.25 

340.00  0.01  -0.2545E+02 

-0.784489E+O5 
330.96  0.01  -0.1786E+02 

-0.778707E+05 

20194.  -0.923056E+O5  86.55 

331.05  0.01  -0.1621E+02 

-0.919633E-!-05 
342.18  0.02  -0,24S3E-y-02 

-0.9264148+0S 

21022.  -0. 1I0599E+06  89.53 

342.01  0.01  -3.1934E+02 

-0. 110820E+06 

333.05  0.01  -0.13916+02 

-0. 110378E+06 

21986.  -0. 124156E+06  91.73 

333.17  0.02  -0.1164E+02 

-0. 122699E+06 
352.99  0.05  -0.1635E+02 

-0. 125613E+66 


0.2151E-01 
0.4778S3E+ai  30 

0.  1266E-01 
0.281145E+01  30 

0. 1267E-01 
0.281753E+01  30 

0.  1758E-01 
0.393167E+01  30 

0.  1766E-01 
0.3923 17E+01  30 

0.  1005E-01 
0.223191E+01  30 

0.  1329E-01 
0.37957SE+O1  30 

0 . 3753E+02 
0.566496E+04  4 


ii 
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NBS  706  IN  10X  02  P=220  3/19/78  AN 


1 

27.625 

0.324 

973. 

0.369732E+06  11.43 

310.79 

0.04 

-0.6374E+O2 

0.5855E-)-Oa 

0.368  127c.'t0o 

3.  139414E-H03 

30 

290.86 

0.02 

-0.261SE+02 

0.  1714E-01 

0.371336E+06 

0.43S18GE-i-ei 

30 

2 

24.709 

0.074 

1836. 

0.349127E+06  14.78 

291.08 

0.02 

-O.2418E+02 

3.  15S3E-01 

0.349514E+OS 

0.35 163  lE-f01 

30 

302.15 

0.01 

-0.369.5E^'02 

O.2636E-01 

0.343S41E+06 

0 . 535567E-f0 1 

30 

3 

24.520 

0.  101 

2663. 

0.319670E-f06  19.57 

302.02 

0.01 

-0.34016-^32 

0.2636E-01 

0.31929SE-i-0S 

0.535557E-+01 

30 

292.92 

0.02 

-B.2409E-t-02 

0. I998E-01 

0.3200436-5-96 

0.443929E+O1 

30 

4 

25.552 

0.084 

3498. 

0.300236E+36  22.73 

293.05 

0.02 

-O.2266E-:-02 

.0.  199SE-01 

0.30971OE-i-06 

0.443929E-<-01 

30 

304.13 

0.02 

-0.3504E-1-02 

O.2146E-01 

0.2997626-^06 

0.476657E+01 

30 

5 

26.266 

0.094 

4317. 

0. 27206 1E+0S  27.31 

304.04 

0.02 

-g.32E5E-i-a2 

3.2146E-01 

0.271b32E-i-06 

0.47b667E-f91 

30 

294.94 

0.02 

-0.22776^-02 

0. 1694E-01 

0.272440E-5-86 

3.37634SE-f01 

30 

6 

25.850 

0.085 

5144. 

0.253643E+06  30.30 

295.04 

0.02 

-0.21SlE-f32 

O.1694E-01 

0.254030E-f0b 

0.37634:?E-f01 

30 

306.14 

0.02 

-O.3351E-f-02 

0.2462E-01 

0.2531SG£-f06 

0.547050E-f01 

30 

7 

25.938 

0.105 

5971. 

0.226476E+06  34.72 

306.01 

0.02 

-0.319SE-f02 

0.2462E-91 

0.2261 13E-K36 

O.547068E-1-91 

30 

296.95 

0.02 

-0.2236E-5-02 

a.  1S77E-01 

0.226S40EH-06 

3.372499E-+-01 

30 

e 

26.523 

0.089 

6798. 

0.203 

485E-^06  37.65 

297.10 

0.02 

-0.2122S+O2 

0.  1677E-01 

0.20331SE+06 

0.3724996-^01 

30 

308.18 

0.02 

-0.3315E-f32 

0.235SE-81 

0.207S92E-f06 

0 . 523324E-5-3 1 

30 

9 

27.084 

0.111 

7624. 

0.182019E+05  41.95 

308.05 

8.02 

-0.3051E+02 

0.2356E-01 

0. 131669E-;-05 

0.523324E-5-01 

30 

299.04 

0.02 

-0.2109E-f02 

0.  1709E-01 

0.  lB2370E-f86 

0. 37963  lE-f01 

30 

10 

26.125 

0.233 

8451. 

0. 165329E+3S  44.71 

299.07 

0.02 

-0.  1988E-f02 

0.  1709E-01 

0. 165426E-1-06 

0.37968 lE+01 

30 

310.11 

0.01 

-0.3071E-5-82 

0. 1135E+G0 

0.  164632E-f06 

0.252085E-5-02 

30 

n 

26.469 

0.313 

9279. 

0.149820E+O6  43.65 

310.02 

0.01 

-0.2751E-I-02 

0.  1 135E-5-00 

0. 143517E-t-06 

0.252085E-*-02 

30 

' 

300.98 

0.02 

-0. 1927E-5-02 

0.  1261E-0I 
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0.  Ml  123E+86 

0.2S0176E+01 

30 

12 

27. 138 

0.095 

10106. 

0.125360E+06  51.16 

301.11 

0.02 

-0. 1792E+02 

0.  1261E-01 

0. 125742E+06 

0.280176E+01 

30 

312. 12 

0.02 

-0.2S33EH-92 

0.2249E-0.1 

0. 124977E+06 

0.4997O6E+01 

30 

13 

27.815 

0. 124 

10933. 

0.183044E+0b  54.79 

312.65 

0.02 

-0.2572E+02 

0.2252E-01 

0.  102739E+8S 

0.590783E+01 

30 

302.98 

0.02 

-a. 1755E+02 

0. 1409E-01 

0.  I03349E-^86 

0.313343E+81 

30 

14  27.546 

0.097 

11761. 

0.888427E+O5  57.18 

303.09 

0.02 

-0. 1S5SE+02 

3. 1407E-01 

0.8918542+05 

0.312656E+01 

30 

314.13 

0.02 

-9.268SE+G2 

3.2033E-81 

0.834999E+05 

a.462657E+ai 

30 

15 

27.755 

0.119 

12588. 

8.633444E+05  60.43 

314.01 

0.02 

-0.2332E+O2 

0.2eS3E-91 

0.68881.6E+O5 

0.462657E+01 

30 

304.99 

0.02 

-0. 1G89E+82 

0.  1310E-01 

0.686073E+85 

0.290S53E+01 

30 

16 

27.831 

0.055 

13456. 

9.545<^S2E+05  62.63 

305. 10 

0.02 

-0. 1476E+02 

0. 1435E-01 

0.552173E+05 

0 . 343368E+0 1 

30 

325.17 

9.02 

-O.3326E+02 

3.223ZE-01 

0.538784E+05 

0.537353E+01 

38 

17 

27.682 

0.138 

14324. 

0.277493E+05  67.03 

324.99 

0.02 

-0.276 lE+02 

0.2339E-0! 

* 

0.274595E+05 

0.452704E+01 

30 

315.92 

0.02 

-0. 1929E+02 

0.2223E-31 

0.280391E+05 

3.433123E+01 

30 

18 

27.994 

0.118 

15151. 

0.125341E+05  69.51 

316.03 

0.02 

-0. 1732E+82 

8.2220E-01 

0.  129017E+85 

0.4S3123E+31 

30 

327.13 

0.02 

-0.2695E+02 

3.2426E-01 

0.  121664E+05' 

0.53304bE+01 

30 

19 

27.898 

0. 122 

15978. 

-8.854382E+34  72.93 

326.97 

0.02 

-0 . 2375E+02 

0.2426E-31 

-0.880 10 lE+04 

0.539045E+01 

33 

317.95 

0.01 

-0.1662E+02 

3.  1 125E-01 

-0.823663E+84 

0.249952E+01 

30 

20 

27.398 

0.084 

16805. 

-0.219179E+05  75.11 

318.02 

0.02 

-0. 1553E+02 

0.  1 125E-81 

-0.216032E+05 

0.249952E+01 

30 

329. 14 

0.02 

-0.239SE+O2 

0. 14S3E-01 

-0.222327E+05 

0.32935SE+ai 

30 

21 

28. 160 

0.898 

17632. 

-0.407054E+85  78.16 

329.04 

0.02 

-0.2125E+02  ■ 

0. 1483E-01 

-0.409376E+05 

0.329353E+81 

30 

319.94 

0.01 

-a. 1481E+02 

0.9052E-02 

-0.404733E+05 

0.201093E+01 

30 

22 

28.837 

0. 107 

19366. 

-0.78159SE+C5  84.25 

340.00 

0.91 

-0.2545E+02 

0.2151E-01 

-0.784489E+85 

0.47783SE+01 

30 

330.96 

0.01 

-0. 1786E+02 

8.  1266E‘-Bl 

-0.778707E+05 

0.281 145E+01 

23 

27.688 

0.083 

20194. 

-0.923856E+05  B'G  .%5 

331.05 

0.01 

-0. 1621E+02 

0. 12S7E‘-01 

-0.919698E+e5 

0.281753E+01 

30 

342.18 

0.02 

-0.24G8E+02 

0.  176SE-81 

-0.926414E+05 

0.393167E+01 

50 
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Listing  of  the  FORTRAN  program  TGEDIT.  The  source  is  in  file  EPROG. 


SPISSM 

TGEDIT  PROG 

SPORT 

C 

C PROGRAM  TO  EDIT  THE  DATA  FILES  FROM  FACTOR  JUi^  TG 
C RUNS  IN  A CONSISTENT  MANNER.  DATA  ARE  SELECTED  ONLY  LUEN  THEY 

C ARE  ABOVE  USER  SPECIFIED  LIMITS  OF  PRECISION  OR  UITHIN  SPECIFIED 

C RANGES  OF  TEMPERAU'RE  AND  DEGREE  OF  REACTON. 

C CORRECTIONS  CAN  BE  MADE  TO  THE  TEMPERATURES.' 

C 

C THE  PROGRAM  READS  THE  SAVE  FILE  FROM  THE  FACTOR  JUMP  THERMGGRAVIMETRY 
C EXPERIMENT  AND  WRITES  AN  EDITED  FILE  IN  THE  SAME  FORMAT 
C 

C THE  INPUT/OUTPUT  UNITS  ARE  AS  FOLLOWS: 

C ASK  QUESTIONS  ON  LU  4 . 

C GET  RESPONSES  FROM  LU  5 
C READ  INPUT  FILE  FROM  LU  7 
C WRITE  OUTPUT  FILE  ON  LU  8 
C 

DIMENSION  T(2),SIGT(2),ERATE(2),SIGER(2),EFACT(2),SIGF(2) 
&,NTITLE(35),N(2) 

C 

C READ  IN  ANY  TEfFERATURE  CORRECTION 
C 

CORREC=0. 

2 WRITE(4. n 

1 FORMAT (/'  CORRECTIONS  TO  TEMPERATURES  OR  NOT?  ' 

GIVE  Y FOR  YES.  N FOR  NO') 

READ(5,S)NETFIX 
9 FORMATCAI) 

IFCHETFIX.EQ.'M')GO  TO  183 
IF  (NETFIX.NE.'Y')  GO  TO  2 

3 CONTINUE 
WRITE(4,5) 

5 FORMAT(///'  GIVE  TEMPERATURE  INCREMENT') 

READ(5,6)C0RREC 

6 FORMAT(F18.0> 

WRITE(4,7)C0RREC 

7 FORMATC'  CORRECTION  VALUE  IS  '.F 10. 2) 

WRITE (4. 8) 

8 FORMATC'  IS  THIS  OK?  Y OR  N') 

READ(5.S)NG0 
IF(NGO.NE.'Y')GO  TO  3 

C 

C INPUT  LIMITS  TO  BE  USED  IN  EDITING 
C 

103  WRITEC4. 15) 

15  FORilATC/'  GIVE:'/ 

&/'  1)  MINIMUM  DEGREE  OF  REACTION  IN  K' 

8./'  2)  MAXIMUM  DEGREE  OF  REACTION  IN  X' 

&/'  3)  MINIMUM  RATE  (ABSOLUTE  VALUE  IS  OK)' 

8c/'  4)  MAXIMiJM  ERROR  IN  RATE  ( = 100>!<SIGR/RATE) ' 

8./'  5)  MINIMUM  TEMPERATURE  IN  DEGREES  CELSIUS' 

8./'  6)  MAXimM  TEMPERATURE' 

8./'  7)  MAXIMUM  ERROR  IN  TEMPERATURE' 

8./'  8)  MiAXmJM  ERROR  IN  ACTIVATION  ENERGY' 
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ono  non  non  ooo  ooo 


8./'  $$S  ALL  ON  SEPARATE  LINES  $S$' ) 

READ (5, 35) DOCniN, DOCnAX, ROUT, SRCUT, TL,  TH. STCUT. SECUT 

35  FORMATCFIB.O) 

UR  I TE ( 4 , 3b ) DOOM I N , DOCMPX, ROUT, SRCUT, TL , TH , STOUT. SECUT 

36  FORMATC/'  INPUT  VALUES  ARE: ' .4F8.2/18X.4F8.2) 

URITEC4.8) 

READ(5,9)NG0 
IF(NGO.NE.'Y")GO  TO  103 

READ  INPUT  FILE.  EDIT  BLOCK  BY  BLOCK 

DO  90  1=1.2 
READ (7. 10)NTITLE 
URITEC8. 10)NTITLE 
90  CONTINUE 
10  F0RMATC35A2) 

1=0 

100  READ(7.20.END  = 110)K.E.S.ET.SU,C,  (TU)  .SIGT(J)  .ERATECJ)  .STGER(J) 
8.,EFACT(J).SIGF(J).N(J),J  = 1.2) 

APPLY  TEMPERATURE  CORRECTION 

IF  (NETFIX.EQ.0)GO  TO  165 
T(l)=t(l)+CORREC 
T(2)=T(2)+C0RREC 
Tl=T(l)+273. 18 
T2=T(2)*J-273.  13 

E=  1 . 987>KT1  >J'T2/(T1-T2)  >i^L0G  CERATE  ( 1 ) /ERATE  (2)  ) 

E=ABS(E/1080.) 

105  CONTINUE 

EDIT  FILE  BASED  ON  INPUT  LIMITS 
DO  108  K=1.2 

IF(ABSCERATECK)) .LE.RCUT)GO  TO  103 

IF  ((18a.>xSlGERCK)/A3S(ERATE(K)))  .GT.SRCUT)GO  TO  100 
IF(TCK) .LT.TL.OR.TCK) .GT.TH)  GO  TO  100 
IF  (SIGTCK) .GE.STCUT)GO  TO  100 
108  CONTINUE 

IF  (S.GE. SECUT)  GO  TO  100 
IF  (C.LT.DOCMIN.OR.C.GT.DOCMAX)  GO  TO  100 

OUTPUT  SURVIVING  DATA 

1 = 1+1 

ljRITE(8,20)  I.E.S.ET.SU.C.  (TC J)  .SIGTCJ)  . 
E.ERATE(J).SIGER(J).EFACT(J).STGFCJ).NCJ).J=1.2) 

20  FORMAT(I4.2F7.3,F1O.0.E15.S.F7.2/ 
8.20X.F8.2.F6.2.2E15.4/34X.2E15.6.  15 
8./20X.F8.2.F6.2.2E15.4/34X.2E15.6. 15) 

GO  TO  100 

EOF  ON  INPUT  FILE 

110  END  FILE  8 
STOP 

END 
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Memory  map  of  the  TGEDIT  program. 


REL  PROGS: 
3576  TGEDIT 

4024 

ftLOG 

4132  PBS 

4148 

.conp 

4174  $6 

41BE 

.RflRG 

41EP  $8 

4214 

.5 

421C  .S 

4252 

.0 

42SA  .MES 

4310 

.U 

4340  .V 

434E 

@2 

4374  0H 

55BE 

PBS  PROGS: 
HOME 

ENTRY-POINTS: 
4026  PLOG 

4134  PBS 

414P  .OOMP 

4176 

S6 

41C0  .RPRG 

41EC  SB 

4218  .5 

42  IE 

.S 

4254  .0 

4290  .tES 

431E  .U 

4346 

.V 

4350  eZ 

4302  0H 

COmGN-BLOOKS: 

HONE 

UNDEFINED: 

HONE 

BIO 
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■.  Appendix  C.  TGTRIM,  a FORTRAN  program  to  calculate  trimmed 
, i means  of  the  activation  energies  in  the  save 
' file  from  factor-jump  thermogravimetry. 


isa>trri  y 


• , ■ , r i ;(■ 


i 


rr' 


•••• 


r*  T • 


Listing  of  the  file  SETRIM, 
needed  by  the  TRIMPG  program. 


used  as  DO  SETRIM,D0  to  assign  files  as 


AS 

120 

AS 

220 

AS 

320 

AS 

420 

AS 

520 

AS 

662 

AS 

720 

AS 

820 

AS 

920 

AS 

A20 

AS 

B20 

AC 

TRIMOl, 

• CD0 

AC 

TRIM02- 

.DD0 

AS 

E20 

AS 

F20 

ASSIGN  INPUT  FILE  (UNIT  7)  THEN  TYPE  'RUN  TRIMPG, D0' 
TR 


Example  of  how  to  run  the  TGIRIM  program.  User  responses  are  underlined 


^»nn  SETRin 

ASSIGN  INPUT  FILE  (UNIT  7)  THEN  TYPE  'RUN  TRIMPG, D0' 

7 

»Af:  PEVALL,7Da 
»RUN  TRIMPG 

TGTRIM  PROGRAM 
READ  INPUT  DATA  FROM  FILE  7 
FILE  G IS  FOR  OUTPUT 

GIVE  NUMBER  OF  FILES  TO  EXAMINE  (IN  FREE  FORMAT) 

I 

JL 

EXAMINE  1 FILES 

GIVE  0 FOR  RATE  DATA  INPUT 

1 FOR  E/SIG  E INPUT  (OUTPUT  OF  TGRUNF) 

UITH  DEGREES  OF  CONVERSION  IN  FILE 

2 FOR  E/SIG  E INPUT  UITH  D.O.C.  TO  BE  , CALCULATED 

NEEDS  INITIAL  AND  FINAL  SAMPLE  UEIGHTS 
AS  THIRD  LINE  OF  FILE 

\ 

J. 

FILE  NUMBER  1 
TITLE  OF  INPUT  FILE  IS  ; 


POOLED  E'S  FROM  PE  IN  VAC  4/78  FROM  PEVAC1,2,3,4  8.  PEBV1,2 


I 

I 

I 

I 
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Typical  output  from  the  TGTRIM  program. 


TITLE  OF  INPUT  FILE  IS  : 


POLY  ISO  BUTYLENE  IN  N2  RUNS  PIEE05  TO  08  DEC  1979 
SAIPLES  IN  E BfiL  RANGE  .13  TO  -.165 


lER 

E 

SIG  E 

D.O.C. 

SUT 

1 

49.78 

1.63 

22.63 

51072.50 

2 

47.47 

0.95 

28.54 

35081.00 

3 

50.24 

1.01 

33.29  • 

8459.12 

4 

48.  19 

0.5^ 

44.20 

-7675.77 

5 

47.57 

0.69 

53.67 

-33521.80 

6 

49.63 

0.52 

59.21 

-48630.70 

7 

50.07 

0.53 

67.55 

-71421.81 

8 

47.64 

0.47 

72.19 

-84090.87 

9 

48.29 

0.67 

78.85 

-10-2272.00 

10 

48.54 

0.34 

82.33 

-113127.00 

11 

45.  15 

0.83 

90. 13. 

-133044.00 

12 

52.51 

0.72 

12.64 

58305.00 

13 

51.09 

0.94 

23.26 

31141.30 

14 

49.30 

0.55 

29,29 

15738.60 

15 

49.59 

0.64 

39.35 

-9979.59 

16 

49.03 

0.46 

45 . 44 

-25541.00 

17 

51.17 

0.74 

55.  16 

-50382.30 

18 

47.02 

0.52 

60.82 

-64366.30 

19 

49.52 

0.78 

69.44 

-86878.81 

20 

47.95 

0.53 

74.  18 

-98999.31 

21 

50.42 

0.82 

80.85 

-116054.00 

22 

48. 12  • 

0.43 

34.78 

,-126091.03 

23 

40.93 

1.19 

91.87 

-144220.00 

24 

50.81 

1 .04 

16.63 

81641.83 

25 

48.  16 

0.70 

20.53 

70476.37 

26 

48.86 

0.87 

27.37 

50618.90 

27 

47.83 

0.59 

31.73 

37970.50 

28 

49.23 

0.73 

39.  13 

. 16515.20 

29 

48.59 

0.53 

43.73 

. 3179.93 

30 

43 . 38 

0 . 86 

51.40 

-19053.49 

31 

43.09 

0.59 

56.03 

-32480.70 

32 

46.59 

0.77 

63.36 

-53740.90 

33 

49.22 

0.57 

67.62 

-66101.50 

34 

48.55 

0.85 

74.  14 

-84995.50 

35 

47.79 

0.53 

77.81 

-95540. 13 

36 

46.05 

0.83 

83.  15 

-11  1 136.00 

37 

49.32 

0.41 

86.41 

-120595.00 

38 

47.76 

0.90 

92.64 

-138646.00 

39 

48.76 

1 . 10 

12.92 

77352.62 

40 

50.43 

0 . 70 

17.  17 

65609,00 

41 

48.32 

0.85 

24.64 

44983.20 

42 

48.70 

0.59 

29.41 

31823.00 

43 

47.55 

0.71 

37.46 

9606.20 

44 

50.28 

0.56 

42.40 

-4034.69 

•45 

47.42 

0.87 

50 . 59 

-26625.90 

46 

48.  14 

0.63 

55.50 

-40167.80 

47 

50.24 

0.87 

63.13 

-61235,30 

48 

46.47 

0.54 

67.51 

-73319.33 

49 

47.49 

0.95 

74.03 

-91443.37 

50 

49.52 

0.47 

73.26 

-102933.00 

51 

45 . 30 

0.7b 

86.71 

-126309.00 

52 

48.53 

0.37 

90.56 

-136939.00 

52  DATA  READ  IN 
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OVERAGE  VALUES  BEFORE  DATA  TRinHED 


UEIGHTED  MEAN  E IS  43.566  + OR  - 0.087 

REDUCED  CHISQ  FOR  E CALCULATION  IS  4.355  (SHOULD  BE  1.) 

UNWEIGHTED  MEAN  OF  SIGMAS  IS  0.719 
CALCULATED  OVER  50.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  43.421  TO  48.712 
FOR  S5y,  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  43.493  AND  0.253 

THIS  GIVES  A CCilFIDENCE  RANGE  OF  43.069  TO  43.917 

CHI-SQUARE  FOR  UNUEIGHFED  E IS  4.37 

T VALUE  APPLIED  IS  1.676 


TRIMMED  MEANS  FOLLOW: 

5 DATA  CHOPPED  OFF  EACH  END  AND  42  DATA  USED 
E SIG  E DOC 


46.59 

0.77 

63.36 

47.02 

0.52 

60.82 

47.42 

0.87 

53.59 

47.47 

0.95 

28.54 

47.49 

0.95 

74.03 

47.55 

0.71 

37.46 

47.57 

0.69 

53.67 

47.64 

0.47 

72.  19 

47.76 

8.90 

92.64 

47.79 

0.58 

77.31 

47.83 

0.59 

31.73 

47.95 

0.58 

74.  18 

4B.09 

0.59 

56.03 

48.12 

0.43 

84.73 

48.  14 

0 . 63 

55 . 50 

48.16 

0 . 70 

20.53 

48.  19 

0.54 

44.20 

48.29 

0.67 

78 . 85 

48.32 

0.85 

24.64 

48.38 

0.86 

51.40 

48.53 

0.37 

90.56 

48.54 

0.34 

82.83 

48.55 

0.85 

74.  14 

48.59 

0.53 

43.73 

48.70 

0.59 

29.41 

48.76 

1.10 

12.92 

48.86 

0.87 

27 . 37 

43.03 

0.46 

45.44 

49.22 

0.57 

67.62 

49.23 

0.73 

39.  13 

49.30 

0.55 

29.29 

49.32 

0.41 

86.41 

49.52 

0.78 

69.44 

49.52 

0.47 

73.26 

49.59 

0.64 

39 . 35 

49.63 

0.52 

59.21 

49.78 

1.63 

22.68 

50.07 

0.53 

67.55 

50.24 

1.01 

33 . 29 

50.24 

0.37 

63.  13 

50.28 

0.56 

42.40 

50.42 

0.82 

80.85 

# 
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UEIGHTED  r-EHN  E IS  43.614  + OR  - 0.093 

REDUCED  CM  ISO  FOR  E COLCULfiTIGN  IS  2.071  (SHOULD  BE  1.) 

UNWEIGHTED  MEOM  OF  SIGMOS  IS  0.F.34 
CALCULATED  OVER  40.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  48.453  TO  48.771 
FOR  S5y,  COilFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  APE  43.6!2  AMD  0.153 

THIS  GIVES  A CGMFIDEMCE  RANGE  OF  43.353  TO  43.866 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  2.07 

T VALUE  APPLIED  IS  1.634 


UINSORISED  MEAN  AND  SIGMA  FOLLOW: 

(I.E.,  REPLACE  REJECTED  VALUES  WITH  NEAREST  UNREJECTED  VALUE) 


UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  43.592  AND  3.203 

THIS  GIVES  A CONFIDENCE  RANGE  OF  43.243  TO  43.942 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  2.31 

T VALUE  APPLIED  IS  1.676 
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TRIMMED  MEftNS  FOLLOW: 

10  DPlTft  CHOPPED  OFF  EACH  END  AND  32  DATA  USED 


E 

SIG  E 

DOC 

47.55 

0.71 

37.46 

47.57 

0.69 

53 . 67 

47.64 

0.47 

72.  19 

47.76 

0.90 

92.64 

47.79 

0.53 

77.31 

47.83 

0.59 

31.73 

47.95 

0.53 

74.  18 

48.09 

0.59 

56 . 03 

48. 12- 

8.43 

84.73 

48.  14 

0.63 

55.50 

48.  16 

0 . 70 

20 . 53 

48.  19 

0.54 

44.20 

48.29 

0 . 67 

73.85 

48.32 

0.35 

24.64 

48.38 

0.86 

51.40 

48.53 

0.37 

90.56 

48.54 

0.34 

82.83 

48.55 

0.85 

74.  14 

48.59 

0.53 

43.73 

48.70 

0.59 

29.41 

48.76 

1 . 10 

12.92 

48.86 

0.87 

27.37 

49.03 

0.46 

45.44 

49.22 

0.57 

67.62 

49.23 

0.73 

39.  13 

49.30 

0.55 

29.29 

49.32 

0.41 

86.41 

49.52 

0.78 

69 . 44 

49.52 

0.47 

73 . 26 

49.59 

0.64 

39.35 

49.63 

0.52 

59.21 

49.78 

1.63 

22.68 

UEIGHTED  MEAN  E IS  48.586  + OR  - 0.101 

REDUCED  CHISQ  FOR  E CALCULATION  IS  1.223  (SHOULD  BE  1.) 

UNWEIGHTED  MEAN  OF  SIGMAS  IS  0.663 
CALCULATED  OVER  30.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  43.413  TO  48.758 
FOR  95.%  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND' UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  48.577  AND  0.120 

THIS  GIVES  A CONFIDENCE  RANGE  OF  48.373  TO  48.782 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  1.22 

T VALUE  APPLIED  IS  1.697 


UINSORISED  MEAN  AND  SIGMA  FOLLOW: 

(I.E.,  REPLACE  REJECTED  VALUES  WITH  NEAREST  UNREJECTED  VALUE) 


UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  43.611  AND  0.193 

THIS  GIVES  A CONFIDENCE  RANGE  OF  43.279  TO  43.943 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  1.28 

T VALUE  APPLIED  IS  1.676 
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TRIMMED  MEfiNS  FOLLOU: 

15  DPlTfl  CHOPPED  OFF  EACH  END  AND  22  DATA  USED 


E 

SIG 

1 E 

DOC 

47. 

,83 

0. 

59 

31. 

73 

47. 

,95 

0. 

58 

74. 

13 

48. 

,09 

0. 

59 

56 . 

03 

48. 

, 12 

0. 

43 

84. 

73 

48. 

, 14 

0. 

63 

55. 

50 

43. 

, 16 

0. 

70 

20. 

53 

48. 

, 19 

0. 

54 

44. 

20 

48. 

,29 

0. 

67 

78. 

85 

43. 

,32 

0. 

85 

24. 

64 

43. 

,33 

0. 

86 

51 . 

40 

43. 

,53 

0. 

37 

90. 

56 

48. 

,54 

0. 

34 

82. 

83 

48. 

.55 

0. 

35 

74. 

14 

-48. 

,59 

0. 

53 

43. 

73 

48. 

,70 

0. 

59 

29. 

41 

43, 

,76 

1 . 

10 

12. 

92 

43. 

,86 

0. 

87 

27. 

37 

49. 

.03 

0. 

45 

45. 

44 

49, 

.22 

0. 

57 

67. 

62 

49, 

.23 

0. 

73 

39. 

13 

49, 

.30 

0. 

55 

29. 

29 

49, 

.32 

0. 

41 

86. 

41 

UEIGHTED  MEAN  E IS  43.577  + OR  - 0.118 

REDUCED  CHISQ  FOR  E CALCULATION  IS  0.S89  (SHOULD  BE  1.) 

UNWEIGHTED  MEAN  OF  SIGMAS  IS  0.623 
CALCULATED  OVER  20.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED.  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  43.373  TO  48.781 
FOR  95%  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  48.551  AND  0.099 

THIS  GIVES  A CONFIDENCE  RANGE  OF  43.380  TO  48.723 

CHI-SQUARE  FOR  UNWEIGHTED  E IS  0.69 

T VALUE  APPLIED  IS  1.725 


UINSORISED  MEAN  AND  SIGMA  FOLLOW: 

(I.E.,  REPLACE  REJECTED  VALUES  WITH  NEAREST  UNREJECTED  VALUE) 


UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 

OF  ITS  SIGMA  ARE  48.565  AND  0.214 

THIS  GIVES  A CONFIDENCE  RANGE  OF  43.206  TO  48.924 

CHl-SC'UARE  FOR  UNWEIGHTED  E IS  1.74 

T VALUE  APPLIED  IS  1.676 
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Listings  of  the  routines  in  the  FORTRAN  program  TGTRIM. 


SPlSSM 

TGTRIM  PROG 
SPORT 
STRGT  16 

c 

C TGTRIM.  SET  UP  FOR  MULTIPLE  RUNS  FROM  ONE  START. 

C PROGRAM  TO  EVALUATE  TG  DATA  DERIVED  FROM  TEMPERATURE  JUMPS 

C 

c 

C WRITTEN  BY  B.  DICKENS,  311.02  NBS 
C 

C TELEPHONE  (301)  921-3322 

C 

C PROGRAM  HEEDS  THE  FOLLOWING  SUBROUTINES  AND  FUNCTIONS: 

C • OVERLY 
C PRIMTR 

C TRIM 

C TRIMRD 

C 
C 

C COMMON  BLOCKS  /lO/  AND  /REGRS/  DEFINED  VIA  ARRAY  'DUMP' 

C COMMON  /lO/  NTTYI.NTTYO, IN.NPRINT.NFILEA.NFILEB 

C COMMON  /REGRS/  M(5) ,R(5) , YFIT(250) 

C 

COMMON  DUMP  (275) 

. EQUIVALENCE  (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) . (IN, DUMP (3)) 

^ EQUIVALENCE  (NPR INT, DUMP (4) ) , (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (6) ) 
DIMENSION  M(5) ,R(5) ,YFIT(250) 

EQUIVALENCE  (M( 1) ,DUMP( 10) ) , (R( 1) ,DUMP( 15) ) , (YFIT( 1 ) ,DUMP(20) ) 

C 

c 

DIMENSION  NTITLE(64) , IDCLD(75) , ID (75) , E (75) , S IGE (75) , DOC (75) 
DIMENSION  SIJT(75)  . NT  I ME  (75) , TREAD  (2, 75) , RATE  (2.  ? 5) , TEMP  (2. 75) 
DIMENSION  SIGT(2,75) ,SIGR(2,75)  . 

EQUIVALENCE  (DOC ( 1 ) , NTIME ( 1 ) ) ■ 

C 

C OVERLAY  NAMES  AND  FILE  ASSIGNMENTS 

C 

1NTEGER>I:2  IPR IMS (3) . ITR IMS (3) 

DATA  IPRIMS/'OP'.'RI'.'MS'/,  ITRIM3/'0T' , 'RI' , 'MS'/ 

NPRIMS  =12  . 

NTRinS  =13 
NDATA  = 75 
NTTYO  = 4 
C 

C INITIALISE  AND  READ  IN  DATA 

C 

CALL  OVERLY  ( IPR IMS, NPRIMS, 0, NTTYO) 

CALL  PRIMTR  (NLOOPY.NLOOP, INDATA) 

100  IF  (NLOOPY.GT.0)  CALL  OVERLY  ( I PR  I MS, NPRIMS, 0, NTTYO) 

CALL  TRIMRD  (NTITLE.NLOOPY, I DOLD, E, S IGE, SUT, DOC, NTIME, TREAD 
8.  ,SIGT,RATE,SIGR,  ID,  INDATA, NDATA, NERROR) 

IF  (NERROR.GT.O)  GO  TO  600 
C 

C CALCULATE  TRIMMED  MEANS 

C 

CALL  OVERLY  ( ITR IMS, NTR IMS, 0, NTTYO) 

CALL  TRIM  (E,S IGE, DOC, NDATA) 

WRITE  (NPRINT, 10) 

10  FORMAT  (' 1' ) 

■IF  (NLOOPY.lt. NLOOP)  GO  TO  100 
600  STOP 
END 
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spissn 

fiCTIV  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  fiCTIVCE.SIGE.TEriPl  ,TEIiP2,SlGTl  ,SIGT2 
8.,  TREAD  1 , TREAD2 . S I GTR 1 , S IGTR2 
8. , RATE  1 , RATE2 , S I GR 1 , S I GR2 , AT,  NERROR ) 

C 

C SUBROUTINE  TO  CALCULATE  ACTIVATION  ENERGY  FROM  TEMPERATURE  AND 
C RATE  DATA 

C 

C >M<*  FOR  A SINGLE  E VALUE 

C 

C E = ACTIVATION  ENERGY 

C SIGE  = STANDARD  DEVIATION  OF  E 
C IE  = ORDINAL  NUMBER  OF  E IN  LIST  OF  E VALUES 

C TEMPI  = FIRST  TEMPERATURE  (IN  DEGREES  K) 

C TEMP2  = SECOND  TEMPERATURE 

C SIGTl,  SIGT2.  = STANDARD  DEVIATIONS  OF  TEMPI  AND  TEMP2 

C TREAD  = VALUES  OF  CORRESPONDING  THERMOCOUPLE  EMF'S  IN  MICROVOLTS 

C VTEMP  = CONTRIBUTION  OF  TEMP  TO  VARIANCE  OF  E 

C 

C RATEl,  RATE2,  SIGRl,  SIGP2  AND  VRATE  ARE  SIMILAR  VALUES  FOR  RATES 

C AT  = POLYNOMIAL  COEFFICIENTS  FOR  EMF  TO  DEGREE  K CONVERSION 

C NERROR  = ERROR  INDICATOR 

C 

c 

C NEEDS  THE  FOLLOWING  COMMON  BLOCK  AND  FUNCTION: 

C COMMON  /lO/  NTTYI,NTTYO, IN, NPRINT,NFILEA,NFILEB 

C TDEGAB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP  ( 1 ) ) , (MTT'fD,  DUMP  (2)  ) , (IN,  DUMP  (3)) 

8.  , (NPRINT,DUMP(4) ) , (NFILEA,DUMP(5) ) , (NFILEB,DUMP(6) ) 

C 

DIMENSION  TEMP(2),SIGT(2),TREAD(2),SIGTR(2),RATE(2),SIGR(2),AT(4) 

C 

C 

R = 1.987/1000. 


R2  = R>t^>t''2 

NERROR  = 

0 

TREAD ( 1 ) 

= TREAD  1 

TREADC2) 

= TREAD2 

SIGTR(l) 

= SIGTRl 

SIGTRC2) 

= SIGTR2 

RATE(l)  = 

RATE  1 

RATE (2)  = 

RATE2 

SIGR(l)  = 

SIGRl 

SIGRC2)  = 

SIGR2 

DO  30  J = 

1,2 

C 

C GET  TEMPERATURE  IN  DEGREES  KELVIN,  TREAD  IS  ,IN  MICROVOLTS 

C 

TEMP(J)  = TDEGAB  (TREAD( J) , AT) 

T = TREAD(J)+SIGTR(J) 

S = TDEGAB (T, AT) 

SIGT(J)  = S-TEMP(J) 

IF  (TEMP(J) .LT. 1.)  GO  TO  40 
IF  <ABS(RATE(J)) .LT. l.E-06)  GO  TO  40 
30  CONTINUE 
C 

C GET  ACTIVATION  ENERGY 
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c 


TDIFF  = TEMP (2) -TEMP (1) 

TDIFF  = ftBS(TDIFF) 

IF  (TDIFF.lt. 1 .E-01)  GO  TO  40 
T = RATE  (2)/RPl  TEC  1) 

IF  (T.LT. 1 .E-Ob)  GO  TO  40 
IF  (T.GT. l.E+06)  GO  TO  40 
IF  (T.LT. 1.)  T = l./T 
RTEMP  = ALOG(T) 

ETEMP  = TEMP  ( 2 ) x-TEMP  ( 1 ) /TD I FF 
E = Rx:RTEMPx€TEMP 

IF  (ABS(E).GT.200..OR.ABS(E).LT.l.)  GO  TO  40 
GO  TO  90 

C 

C DISCARD  THIS  POINT  FOR  VARIOUS  POSSIBLE  REASONS 

C 

40  CONTINUE 

IF  (NPRINT.GE.S)  URITE  (NPR INT, 50) I E ' 

IF  (NFILEB.GT.6)  URITE  (NF ILE3, 50)  IE 
50  FORMAT  ('  ACT.  ENERGY  NUMBER', 13,'  DISCARDED') 

NERROR  =8  . 

RETURN 

90  CONTINUE 

E2  - E>t:xc2 

C 

C GET  ASSOCIATED  SIGMA 
C 1)  FROM  RATES 

C 

VRATE  = (CSIGR(2)/RATE(2))xcXJ2+CSIGR(l)/RATE(l))>ioK2)XcE 
8.2/RTEMPXCXC2 

C 

C 2)  FROM  TEMPERATURES 

C 

VTEMP  = ((SIGT(!)/'TEMP(l)>iotc2)>KX<2+(SlGT(2)/TEMP(2)>K>K2) 

8cXo«2 ) >kE2X:ETEMP>h*2 

C 

C COMPUTE  TOTAL  SIGMA  ON  E 

C 

SIGE  = SQRT(VRATE+VTEMP) 

C 

C OUTPUT  INITIAL  AND  CALCULATED  VALUES 

C 

TEMP(l)  = TEMP (1) -273. 15 
TEMP (2)  = TEMP (2) -273. 15 
IF  (NPRINT.lt. 3)G0  TO  200 
URITE  <NPRINT,52) 

52  FORMAT  (/'  ACTIVATION  ENERGY  FROM  = ACTIVE  = ' 

8./6X, 'E' ,2X, 'SIG  E' ,2X, 'FACTOR  OR  RATE  '/) 

URITE  (NPRINT, 1C0)E,SIGE, (TEMP(J) ,SIGT(J) ,RATE(J) ,S1GRCJ) , J = 1,2) 
100  FORMAT  (2F7.3,F8.2,F6.2,2E13.4/14X,F8.2,F6.2,2E13.4) 

110  CONTINUE 

C 

c 

120.  URITE  (NPRINT, 133) 

130  FORMAT  (/'  CONTRIBUTION  OF  RATE  AND  TEMPERATURE  TO  VARIANCE' 

8c,' ( = SIGE>i-K2)'7'  RATE  TEMP'/) 

URITE  (NPRINT,  140)  \/RATE,VTEMP 
140  FORMAT  (2E12.3) 

200  IF  (NFILEB.LE.b)RETURN 
URITE  (NFILEB,52) 

URITE  (NFILEB, 100)E,SIGE, (TEMP(J),SIGT(J),RATE(J),SIGR(J),J  = 1,2) 
URITE  (NFILEB, 130) 

URITE  (NFILEB, 140)VRATE,VTErP 
TEMPI  = TEMP(l) 

TEMP2  = TEMP (2) 

SIGTl  = SIGT(l) 

SIGT2  = SIGT(2)  ' 

RETURN  ' 

END 
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SfiSSM 
flVSDN  PROG 
$FORT 
$TRGT  16 

C j|oMoloio^5j<>Mc>!oMo)oMc<otoMo|oMoK>K>K>tok>K>MoMciotoMotoMoMoH5MoMo|o|oKi^^ 

c 

SUBROUTINE  AVSDN(flVE,SD,Q,NVPlU 

C 

0 >Mo^o!o^o^o4<>K>K>^oK>K>t<>rOk>K^>ioto^o^ofoK>K^K>^<M^<>!oK>K>^oK>^<>K>K>fotoK>lopJt<>k>M^^^<^^ 

C SUBROUTINE  TO  CRLCULPlTE  RVERftGE  RND  STP.NDftRD  DEVIRTION 
C AVE  = AVERAGE  VALUE 
C Q = INPUT  VALUES 

C SD  = STANDARD  DEVIATION  OF  POPULATION  OF  Q 
C NVAL  = NUMBER  OF  VALUES 

C 

C NEEDS  NO  COMMON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES 

C 

C RETURNS  SD  = l.E+06  IF  ONLY  ONE  VALUE  IS  AVAILABLE 

C 

c 

DIMENSION  Q(NVAL) 

C 

C CALCULATE  AVERAGE 

C 

AVE=0. 

DO  10  1=1, NVAL 
10  AVE=AVE+Q(I) 

AVE=AVE/FLOAT(NVAL) 

IFCNVAL.GT. 1)  GO  TO  50 
SD=1.0E+06 
RETURN 
50  SD=0. 

C 

C CALCULATE  STANDARD  DEVIATION 

C 

DO  40  1=1, NVAL 
40  SD=SD+(AVE-Q(I))>ioi:2 

SD=SQRT(SD/(FLOAT(NVAL-l))) 

RETURN 

END 


Cll 


sftssri 

CHISQ  PROG 
SPORT 
STRGT  16 

C >K>ioKHoK>k3»<>|oMoMo|c>MotoK>fojoK5K>Mc>K5fc<oK>K>K>K>MoK>loK>K5!c>|oMoMotc^^ 

c 

SUBROUTINE  CHISQ(P,SP,XSQ,N) 

C 

C SUBROUTINE  TO  CALCULATE  REDUCED  CHI  SQUARE  FOR  N INPUT  VALUES. 
C P = INPUT  VALUES 

C SP  =•  STANDARD  DEVIATIONS  OF  P VALUES 
C XSQ  = CHI-SQUARE  VALUE  FOR  P AND  SP  ARRAYS 
C N = NUnSER  OF  P VALUES 

C 

C NEEDS  NO  COmON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES 

C 

DIMENSION  P(N),SP(N) 
ftVE=0. 

C 

C CALCULATE  AVERAGE 

C 

DO  10  1=1, N 
10  AVE=AVE+P(I) 

AVE=AVE/FLOAT(N) 

XSQ=0. 

IF (N.LE.l) RETURN 
C 

C CALCULATE  CHI  SQUARE 

C 

DO  20  I=1,N 

20  XSQ=XSQ+((AVE-P(I))/SP(D)>H>K2 
XSQ=XSO/FLOATCN-l) 

RETURN 

END 


SASSM 
FCTN  PROG 
SPORT 
STRGT  16 
C 

C 

FUNCTION  FCTN  (X, I, J, JTERMS,NPTS) 

C 

C 

C FUNCTION  TO  CALCULATE  FITTED  VALUES  FOR  REGRES  SUBROUTINE 

C 

c 

DIMENSION  X(NPTS) . JTERMS(J) 

■JEXP=JTERMS(J) 

FCTN=X(D>K>kJEXP 

RETURN 

END 
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SASSM 
EREAD  PROG 
SPORT 
STPGT  16 

C :MoK5t:*5k>K5tok)Wo(o|oK:1o|oK5|oWc4o<KHo»«3foK3K3MOfOfoMoK3t«oMoMo»oto»^^ 

c 

SUBROUTINE  EREAD ( IDOLD. E. S IGE, SUT, DOC',  NDATA.  INDATA . NERROR) 

C 

Q )(oioMoK5;'^;MoK>K>iojoK>!o|<>t<>|oK>K>tclo^>K’K>tc>toK5foK5»oMoM<>loK>MoK>)<>'':;to|oK5MoMoK3to*ot^^ 

c 

C SUBROUTINE  TO  READ  IN  E/SIGE  FILE  FROM  TGRUNF 

C NEEDS  COMMON  /lO/  NTTYI , NTTYO. IN, NPR INT, NF ILEA, NF ILEB 
C AND  FUNCTION  READX 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) , ( IN,DUMP (3) ) 

& . (NPRINT,DUMP(4) ) , (NFILEA,DUMP(5)  ) , (NFILEB,D'JM?(6)  ) 

C 

DIMENSION  IDOLD(l),E(l),SIGE(l),SUTCl),DOC(l) 

C 

C NDATA  IS  INITIALISED  NEAR  DIMENSION  STATEMENT  IN  MAIN  PROGRAM 

C 

NDO  = NDATA 
NDATA  = 0 

C 

C READ  IN  E/SIG  E FILE  (5  RECORDS  PER  ACTIVATION  ENERGY) 

C 

DO  10  I = l,NDO 

J •=  READX  (IU,NERROR,3,  IN,NTTYO,  lEOF) 

C 

C TEST  FOR  EOF 
C 

IF  (IECF.GT.0)GO  TO  20 
NDATA  = NDATA+1 
IDOLD(NDATA)  = I 

E(NDATA)  = READX  ( lU, NERROR, 1 , IN, NTTYO, lEOF) 

SIGE(NDATA)  = READX  ( IU,NERROR, 1, IN, NTTYO, lEOF) 

A = READX  (IU,NERROR, 1, IN, NTTYO, lEOF) 

SUT(NDATA)  = READX  ( lU, NERROR. 1 , IN, NTTYO, lEOF) 

IF  ( INDATA. EQ. 1) DOC (NDATA)  = READX  ( lU.NERROR, 1, IN, NTTYO, lEOF) 
C 

C SPACE  OVER  REST  OF  RECORDS  FOR  THIS  ACTIVATION  ENERGY 

C 

DO  15  K = 1,4 

15  A = READX  ( lU.NERROR, 3, IN, NTTYO, lEOF) 

10  CONTINUE 
20  CONTINUE 
RETURN 
END 
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$ASSM 

milNV  PROG 
SPORT 
STRGT  16 

C )(cloKX<>|oJc>f3K>foloK>loK>ic+o|ofc>!oK;lolotoic>loMofofotc>K5W<>totoMcicK^^ 

c 

SUBROUTINE  MATINV  (ARRAY, NORLER,DET) 


C 

C 5tcVo(<>!<)foK>K>ic>K;K>i^5|'.xr^of;:K^);<>tr4c>(;>K>{ofo!cfr>)otoloti>K>;<>(c<o)CK>Mok>}o|oH;K>K:+c>^^ 

C SUBROUTINE  FOR  MATRIX  INVERSION 

C 

DOUBLE  PRECISION  ARRAY, AMAX, SAVE 
DIMENSION  ARRAY(5,5), IKC5),JK(5) 

DET=1. 

DO  190  K=l,NORDER 


C 

C FIND  LARGEST  ELEMENT  ARRAY(I,J)  IN  REST  OF  MATRIX 

C 

AMAX=0. 


10  DO  30  I=K,NORDER 

DO  30  J=K,NORDER 

IF  (DABS(AMAX)-DABS(ARRAY(I,J)))  20,20,30 
20  AMAX=ARRAY(I,J) 


IK(K)=I 

JK(K)=J 

30  CONTINUE 

C 

C INTERCHANGE  ROUS  AND  COLUMNS  TO  PUT  AMAX  IN  ARRAY(K,K) 

C 

IF  (AMAX)  50,^0,50 
40  DET=0. 


50 


60 


70 

80 

90 


GO  TO  260 
I=IK(K) 

IF  (I-K)  19,80,60 
DO  70  J=l,NORDER 
SAVE=ARRAY(K. J) 
ARRAY(K, J)=ARRAY(I,J) 
ARRAY(I,J)=--SAVE 
J=JK(K) 

IF  (J-K)  10,110,90 
DO  100  I=1,NCRDER 
SAVE=ARRAY(I,K) 
ARRAY(1,K)=ARRAY(I,J) 
ARRAYd,  J)=-SAVE 


100 
C 

C ACCUMULATE  ELEMENTS  OF  INVERSE  MATRIX 

C 

110 


120 

130 


140 

150 


DO  130  I=l,NORDER 

IF  (I-K)  120,130,120 
ARRAY( I , K) =-ARRAY( I , K) /AMAX 
CONTINUE 

DO  160  I=1,N0RDER 

DO  160  J=1,N0RDER 
IF  (I-K)  140,160,140 
IF  (J-K)  150,160,150 

ARRAY(I,J)  =ARRAY(1.J)+ARRAY(I,K)H-ARRAY(K,  J) 
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160  CONTINUE 

DO  180  J=l,NORDER 

IF  (J-K)  170,180.170 

170  ARRAY(K,J)=fiRRfiY(K,J)/fimX 

180  CONTINUE 

flRRflY(K,K)  = l./AmX 
190  DET=DET>t:fimX 

C 

C RESTORE  ORDERING  OF  MATRIX 

C 

DO  250  L=l,NORDER 
K=NORDER-L+l 
J-IK(K) 

IF  (J-K)  220,220,290 
200  DO  210  I=l,NORDER 

SAVE=ARRAYCI,K) 
ftRRAY( I , K) =-fiRRAY( I , J) 

210  ARRAY(I,J)=SflVE 

220  I=JK(K) 

IF  (1-K)  258,250,230 
230  DO  240  J=l,NORDER 

SAVE=ftRRAY(K,J) 
ftRRAY(K,J)=-ARRAY(I,J) 

240  fiRRAYC I,  J)=SflVE 

259  CONTINUE 

260  RETURN 
END 
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NORPPF  PROG  D124:N0RPPF.FTN 
SFORT 

SUBROUTINE  NORPPF (P.PPF) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c’ 

c 

c 

c 

c 

c 

c 


PURPOSE--THIS  SUBROUTINE  COMPUTES  THE  PERCENT  POINT 
FUNCTION  VALUE  FOR  THE  NORmL  (GAUSSIAN) 

DISTRIBUTION  UITH  MEAN  = 0 AND  STANDARD  DEVIATION  - 1. 
THIS  DISTRIBUTION  IS  DEFINED  FOR  ALL  X AND  HAS 
THE  PROBABILITY  DENSITY  FUNCTION 
F(X)  = (l/SQRT(2>;^PI))'KEXP(-X>xX/2)  . 

NOTE  THAT  THE  PERCENT  POINT  FUNCTION  OF  A DISTRIEUTICN 
IS  IDENTICALLY  THE  SAME  AS  THE  INVERSE  CUMULATIVE 
DISTRIBUTION  FUNCTION  OF  THE  DISTRIBUTION. 

INPUT  ARGUMENTS--P  = THE  SINGLE  PRECISION  VALUE 

(BETWEEN  0.0  AND  1.0) 

ftT  WHICH  THE  PERCENT  POINT 

FUNCTION  IS  TO  BE  EVALUATED. 

OUTPUT  ARGUMENTS--PPF  = THE  SINGLE  PRECISION  PERCENT 

POINT  FUNCTION  VALUE. 

OUTPUT--THE  SINGLE  PRECISION  PERCENT  POINT 
FUNCTION  VALUE  PPF. 

PRINTIMG--NONE  UNLESS  AN  INPUT  ARGUMENT  ERROR  CONDITION  EXISTS. 
RESTRICTIONS— P SHOULD  BE  BETWEEN  0.0  AND  1.0.  EXCLUSIVELY. 
OTHER  DATAFA.C  SUBROUTINES  NEEDED— NONE. 

FORTRAN  LIBRARY  SUBROUTINES  NEEDED— SORT.  PLOG. 

MODE  OF  INTERNAL  OPERATIONS— S INGLE  PRECISION. 

LANGUAGE— ANSI  FORTRAN. 

REFERENCES— ODEH  AND  EVANS.  THE  PERCENTAGE  POINTS 

OF  THE  NORMAL  DISTRIBUTION.  ALGORTIHM  70. 

APPLIED  STATISTICS,  1974,  PAGES  9S-97. 

—EVANS.  ALGORITHMS  FOR  MINIMAL  DEGREE 
POLYNOMIAL  AND  RATIONAL  APPROXIMATION. 

M.  SC.  THESIS,  1972.  UNIVERSITY 
OF  VICTORIA,  B.  C,.  CANADA. 

—HASTINGS,  APPROXIMATIONS  FOR  DIGITAL 
COMPUTERS.  1955,  PAGES  113,  191,  192. 

—NATIONAL  BUREAU  OF  STANDARDS  APPLIED  MATHEMATICS 
SERIES  55.  13S4.  PAGE  933,  FORMULA  25.2.23. 

— FILLIBEN.  SIMPLE  AND  ROBUST  LINEAR  ESTIMlATION 
OF  THE  LOCATION  PARAMETER  OF  A SYi'-lMETRIC 
DISTRIBUTION  (UNPUBLISHED  PH.D.  DISSERTATION. 
PRINCETON  UNIVERSITY),  1963.  PAGES  21-44,  229-231. 
— FILLIEEN.  'THE  PERCENT  POINT  FUNCTION'. 

(UNPUBLISHED  MANUSCRIPT),  1970,  PAGES  28-31. 
—JOHNSON  AND  KOTZ.  CONTINUOUS  UNIVARIATE 
DISTRIBUTIONS— 1.  1970,  PAGES  40-111. 

—THE  KELLEY  STATISTICAL  TABLES,  1948. 

—OWEN.  HANDBOOK  OF  STATISTICAL  TABLES, 

1962,  PAGES  3—16. 

—PEARSON  AND  HARTLEY,  BIOMETRIKA  TABLES 
FOR  STATISTICIANS,  VOLUME  1,  1954, 

PAGES  104-113. 

COMMENTS— THE  CODING  AS  PRESENTED  BELOW 

IS  ESSENTIALLY  IDENTICAL  TO  THAT 
PRESENTED  BY  ODEH  AND  EVANS 
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fiS  PILGORTIHM  70  OF  fiPPLIED  STOtlSTICS. 

THE  PRESENT  H JTHCR  HAS  MOD  IF  I ED  THE 
ORIGINAL  ODEH  AND  EVANS  CODE  UITH  ONLY 
MINOR  STYLISTIC  CHANGES. 

—AS  POINTED  OUT  BY  ODEH  AND  EVANS 
IN  APPLIED  STATISTICS, 

THEIR  ALCCRITnM  REPRESENTES  A 
SUBSTANTIAL  iriPROV'EMENT  OVER  THE 
PREVIOUSLY  EMPLOYED 
HASTINGS  APPROXIMATION  FOR  THE 
NORMAL  PERCENT  POINT  FUNCTION— 

THE  ACCURACY  OP  APPROXIMATION 
BEING  IMPRQ-VED  FROM  4. 5>f:(  10:f^-4) 

TO  1.5’*:(10H=*:-3)  . 

URITTEN  BY— JAMES  J.  FILLIEEN 

STATISTICAL  ENGINEERING  LABORATORY  (295.03) 
NATIONAL  BUREAU  OF  STANDARDS 
UASHINGTCN,  D.  C.  20234 
PHONE:  301-521-2315 

ORIGINAL  VERSION— JUNE  1972. 

UPDATED  — SEPTEMBER  1975. 

UPDATED  — NOVEMSER  1S75.  ’ 

UPDATED  —OCTOBER  1976. 


DATA  P0,P1,P2,P3.P4 
1/-. 32223243 I8SS.- 1.0, 

1 - . 342242CSS547 , - . 20423 1 2 1 8245E- 1 , 
1 4536422 1G14SE-4/ 

DATA  C0,Q1,C2,G3.G4 
1/. 993434S26060E- 1 , . f SE5S 1 570495, 

1 .53 1 103452366, . 103537752350, 

1 .385697006346-2/ 


IFR=6 

CHECK  THE  INPUT  ARGUMENTS  FOR  ERRORS 

IF(P.LE.0.0.OR.P.GE. 1.0)GOTO50 
GOTOS0 

50  LRITECIPR,  1) 

URITE(IPR.45)P 
RETURN 
90  CONTINUE 

1 FORKATCIH  ,115H-rowc^  FATAL  ERROR— THE  FIRST  INPUT  ARGUMENT  TO  THE 
1 NORFPF  SUBROUTINE  IS  OUTSIDE  THE  ALL0LH3LE  (0,1)  INTERVAL 
46  FCRMATdH  , TrE  VALUE  OF  THE  ARGUMENT  IS  ,E15.8,6H  >»o>oiciotc) 

IF (P.NE. 0,5) GOTO  150 
PPF=a.B 
RETURN 

C 

150  R=P 

IF(P.GT.0.5)R=1.0-R 
■ T*=SQRT(-2 . 0>^ALOG (R) ) 

ANUn=(  ( ( (T>J^»4+P3)  -*T+P2)5^T+PI  )>tcT+P0) 

ADEN=((  ( (T>?C!4+Q3)5»:T+G2)*T+ai)3ttT+Q9) 

PPF*=T+(ANUM/ADEN) 

IF(P.L7.0.5)PPF=-PFF 

RETJRN 

C 

END 


C17 


ODD  non  ono  ooono  on 


SflSSM 

OVERLY  PROG 
SPORT 
STRGT  16 

SUBROUT  I HE  OVERLY  ( NPROG , NUN  I T,  HRE'J  I N , NTTYO ) 

:MoJc{c>K5foi;>!o{oioMc<<^(OK>fo^otc>fr,fo(o(<i*c^Jofcic4c>ioK>o!ofc>K><c<otoK>fcic<o^^ 

SUBROUTINE  TO  REPD  IN  OVERLPiY  SEGMENT  FROM  UNIT  NUN  IT 
TRY  3 TIMES  IF  OVERLPiY  IS  PT  BEGINNING  OF  FILE 

INTEGER*2  NPR0GC3) 

30  NTIME=1 

REUIND  INPUT  UNIT  IF  PPPROPRIPITE,  READ  IN  OVERLAY  SEGMENT 

10  IF(NREUIN.EQ.0)REUIND  NUNIT 
CALL  IFETCHCHPROG, NUNIT, ISTAT) 

IFdSTAT.EQ.aiRETURN 
NTIME=NTIME+1 

IF(NTIME.LE.3.AND.NREUIN.EQ.0)GO  TO  10 
ERROR -ROUTE 

UR I TE ( NTTYO . 20 ) NPROG . NUN  IT 

20  FORMATC'  CANNOT  READ  IN  OVERLAY  ',3A2,'  FROM  LOGICAL  UNIT', 13) 

REPEAT  AFTER  =CONTINUE=  GIVEN  BY  OPERATOR 

PAUSE 
GO  TO  30 
END 
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SASSM 

PRIMTR  PROG 
$FORT 
STRGT  16 

c 

SUBROUTINE  PR IMTR (NLOOPY. NLOOP. INDOTfi) 

C 

C 

C SUBROUTINE  TO  INITIALISE  TG  DATA  PROCESSING  PROGRAnS 

C 

C NEEDS  SUBROUTINE  READX 

C 

C AND  COnnON  BLOCKS  /lO/  NTTYI ,NTTYO, IN,NPRINT,NFILEA,NFILEB 

C 

COMMON  DUMP (275) 

EQUIVALENCE  (NTTYI . DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) , ( IM,DUMP(3)) 

8.  , (NPRINT,DUMP(4) ) , (NF  ILEA.  DUMP  (5) ) , (NF  ILEB.  DUMP  (6) ) 

C 

NLOOPY=0 

C 

C INITIALISE  FILES,  ETC. 

C 

NTTYO  = 4 
NTTYI  = 5 
IN  = 7 
NPRINT  = 6 
NFILEB  = 9 
DO  5 I = 1,5 
5 MCI)  = I 
C 
C 

URITE  (NTTYO, 10)  IN 
10  FORMAT  (/'  TGTRIM  PROGRAM' 

8,  /'  READ  INPUT  DATA  FROM  FILE',  13) 

URITE  (NTTYO, 20)  NPRINT 
20  FORMAT  (5H  FILE,I4,14H  IS  FOR  OUTPUT) 

LOOPY  = 0 
URITE  (NTTYO, 40) 

40  FORMAT  ('  GIVE  NUMBER  OF  FILES  TO  EXAMINE  (IN  FREE  FORMAT)') 
NLOOP  = READX  ( IIJ,  NERROR,  3,  NTTYI , NTTYO,  lEOF) 

URITE  (NTTYO, 60)  NLOOP 
60  FORMAT  ('  EXAMINE' , 14, ' FILES')  ^ 

URITE  (NTTYO, 80) 

80  FORMAT  (/'  GIVE  0 FOR  RATE  DATA  INPUT' 

8./'  1 FOR  E/SIG  E INPUT  (OUTPUT  OF  TGRUNF)' 

8./'  UITH  DEGREES  OF  CONVERSION  IN  FILE' 

2 FOR  E/SIG  E INPUT  UITH  D.O.C.  TO  BE  CALCULATED'  . 
8./'  NEEDS  INITIAL  AND  FINAL  SAMPLE  UEIGHTS' 

a/'  AS  THIRD  LINE  OF  FILE') 

INDATA  = READX  ( lU, NERROR, 3, NTTYI , NTTYO, lEOF) 

100  CONTINUE 
RETURN 
END 


$ftSSM 

READEM  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  READEMCHTIME, TREAD, S IGT, RATE, S IGR, ID,NDATA) 

C 

c 

C SUBROUTINE  TO  READ  RAU  DATA 

C NEEDS  COMMON  /ICi/  NTTYI , NTTYO,  IN,  NPR INT,  NF  ILEA,  NF  ILEB 
C 

COMMON  DUMP  (275) 

EQU I VALENCE  ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP  C 3 ) ) 

&•  , (NPR INT, DUMP (4) ) , (NF ILEA,  DUMP (5) ) , (NF ILEB, DUMP (b) ) . 

C 

DIMENSION  NTIME(1),TREAD(1, 1),SIGT(1, 1 ) , RATE ( 1 , 1 ) , 

& SIGRd,  1),  ID(1) 

C 

C 

IF  (NFILEB.GT.6)  WRITE  (NFILEB,10) 

IF  (NPRINT.GE.3)  WRITE  (NPRINT, 10) 

10  FORMAT  (4bH  TIME  THCPL  SIG  THCPL  RATE, 

& 12H  SIG  RATE/) 

NERROR  = 0 
NDO=NDATA 
NDATA  = 0 
DO  59  I = l,NDO 

NTIME(I)  = READX(IW,NERR0R,3, IN,NTTYO, lEOF) 

IF  (IEOF.GT.0)  GO  TO  60 

TREAD(1,I)  = READX( IW, NERROR, 1, IN, NTTYO, lEOF) 

SIGT(1,I)  = READX(IW,NERROR, 1, IN,NTTYO, lEOF) 

RATE(1,I)  = READX( IW, NERROR, 1, IN, NTTYO, lEOF) 

SIGRd,  I)  = READX(  IW, NERROR,  1,  IN, NTTYO,  lEOF) 

TREAD(2,I)  = READXdW, NERROR,  1,  IN, NTTYO,  lEOF) 

SIGT(2,I)  = READX( IW, NERROR, 1, IN, NTTYO, lEOF) 

RATE (2, I)  = READX( I W, NERROR, 1, IN, NTTYO, I EOF) 

S I GR ( 2 , I ) = READX ( I W, NERROR , 1 , I N , NTTYO , I EOF ) 

IF  (NFILEB.GT.S)  WRITE  (NF ILEB, 30) NTIME ( I ) , (TREAD ( J, I ) , S IGT( J, I ) 
8=,RATE(J,  I),SIGR(J,  I),J  = 1,2). 

IF  (NPRINT.GE.3)  WRITE  (NPR INT, 30)  NTIME (I ) , (TREAD ( J, I ) , S IGTC J, I ) 
&,RATE(J, I),SIGR(J, I) , J = 1,2) 

30  FORMAT  dl0,4E12.4/10X4E12.4) 

C 

C PUT  THERMOCOUPLE  READING  IN  MILLIVOLTS 

C 

DO  40  J = 1,2 

TREAD(J,I)  = TREAD(J,  I)>K1000. 

40  SIGT(J,I)  = SIGT(J,  DxMOee. 

ID(I)  = I 
NDATA  = NDATA+1 
50  CONTINUE 

60  RETURN 
END 
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SflSSM 

REGRES  PROG 
$FORT 
$TRGT  16 
C 

C >|oMoMo|ofc>ioMojo!oMo|oK5MoicMoto*r.4C)MoMoMo»ofoK>totoK>Mo|OMc4oMoK;^^ 

c 

SUBROUTINE  REGRES  «:X,Y.SIGMBY,NPTS,NTERriS,ri,raDE,YFIT,flO, A,SIGMAO, 
2 SIGMAA,R,RmL,CHISQR,FTEST) 

C 

C >K5toK5}ok>iof»K>KJt»|oK>H>K5K5K>K>toK>K>(c>fc4c4c>io(o|o(oMOfOK>K>loK>(otoKJMc<oK>Mo)^^ 

c 

C NEEDS  THE  FOLLOUING  FUNCTION  AND  SUBROUTINE: 

C FCTN 

C MATINV 

C 

c 

DOUBLE  PRECISION  ARRPY.SUM.YMEAN. SIGMA, CHISQ.XnERN.SIGMAX 
DIMENSION  X(NPTS) ,Y(NPTS),SIGMAY(NPTS),M(5),YFIT(NPTS) 
&,SIGMAA(5),R(5),A(5) 

DIMENSION  UEIGHT(250),XMEAN(5),SIGMAX(5),ARRAY(5,5) 

C 

C INITIALIZE  SUMS  AND  ARRAYS 

C 

SUM=0. 

YMEAN=0. 

SIGMA=0. 

CHISQ=6. 

RMUL=0. 

DO  10  I=1,NPTS 
10  YFIT(I)=0. 

IF  (NTERM3.LE.0)  GO  TO  30 
DO  20  J=1,NTERMS 
XMEAN(J)=0. 

S1GMAX(J)=0. 

R(J)=0. 

A(J)=0. 

SIGMAA(J)=0. 

DO  20  K=1,NTERMS 
20  ARRAY(J,K)=0. 

30  CONTINUE 
C 

C ACCUMULATE  WEIGHTED  SUMS 

C 

DO  110  I=1,NPTS 

IF  (MODE)  40,78,80 
40  IF  (YCD)  60,70,50 

50  UE1GHT(I)=1./Y(I) 

GO  TO  90 

60  IlEIGHT(I)=1./'(-Y(I)) 

GO  TO  90 

70  UEIGHT(I)=1. 

GO  TO  90 

80  UEIGHT(I)=1./SIGMAY(I)hok2 

90  SUM=SUM+UEIGHT( I) 

YTEAN*=YMEAN+UE  IGHT(  I ) ^Y<  I ) 
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IF  (NTERMS.LE.0)  GO  TO  110 
DO  100  J=l,NTERhS 

100  XMEPN  ( J ) =XHEPIN  ( J)  -HJE I GHTC  I ) HcFCTN  (X.  I , J,  M, NPTS ) 

110  CONTINUE 

YMEftN=YMEftH/SUri 
IF  (NTERrl3.LE.0)  GO  TO  130 
DO  120  J=1,NTERMS 
120  XriEAN(J)=XMEfiN(J)/SUM 

130  CONTINUE 

FNPTS=NPTS 
UMEftN=SUM/FNPTS 
DO  140  1=1, NPTS 

.140  UEIGHTn)=UEIGHT(I)/lJnEftN 

C 

C ftCCUMULfiTE  MATRICES  R AND  ARRAY 

C 

DO  150  1=1, NPTS 

S I GMA  =S I GMA+lJE I GHT ( I) ( Y ( I) -YME AN ) 

IF  (NTERMS.LE.0)  GO  TO  160 
DO  150  J=1,NTERMS 

S1GMAX<J)=SIGMAX(J)+UE1GHT(I)>k(FCTN(X,  I,J,M,NPTS)-XMEAN(J))^2 
R ( J ) =R ( J ) +UE I GHT ( I) '-K C FCTN X,  I , J , M, NPTS ) -XME AN ( J ) ) ( Y ( I) - YTE AN ) 
DO  150  K=1,J 

ARRAY(J,K)=ARRAY(J.,K)+UEIGHTn)>K<FCTN(X,  I,  J,M,NPTS)-XMEAN(J) ) 

2 *(FCTN(X, I,K,M,NPTS)-XMEAN(K)) 

150  CONTINUE 
1S0  CONTINUE 

FREE1=NPTS-1 

SIGMA=DSQRT(SIGMA/FREE1) 

IF  (NTERMS.LE.0)  GO  TO  180 
DO  1?0  J=1,NTERMS 

SIGMAX(J) =DSQRT(SIGMAX(J)/FREE1) 
R(J)=R(J)/(FREE1>»<SIGMAX(J)>KSIGMA) 

DO  1T0  K=1,J 

ARRAY(J,K)=ARRAY(J,K)/(FREE1>kSIGMAX(J)>kSIGMAX(K)) 

170  ARRAY(K,J)=ARRAY(J,K) 

160  CONTINUE 

C 

C INVERT  SYMMETRIC  MATRIX 

C 

IF  (NTERMS.LE.0)  GO  TO  230 
CALL  MATINV  ( ARRAY, NTERMS,DET) 

IF  (DET)  203,190,203 
190  AO=0. 

SIGMAO=0. 

R«UL=0. 

CHISQR=0. 

FTEST=0. 

GO  TO  330 
C 

C CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 

C 

200  AO=YMEAN 

IF  (NTERMS.LE.0)  GO  TO  230 
DO  220  J=1,NTERMS 

DO  210  K=1,NTERMS 
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210 


fl(J)=A(J)«<SIGm/SIGri?^X(J) 
fiO=ft3-ftU)5l:>':MEnN(J) 

DO  220  I=1,N?TS 
220  YFIT(n=YFIT(I)+A(J)H:FCTN(X,  I,J,M,NPTS) 

230  CONTINUE 

DO  249  I=1.NPTS 

YF1T(I)=YFIT(I)+P0 

240  CHISQ=CHISQ+'JEIGHT(  I)>K(Yn)-YFIT(I)'>>iof<2 

FREEN=NPTS-NTERriS-l 
CHISQR=CHISQ>i:UMEftN/FREEN 

C 

C CALCULATE  UNCERTAINTIES 

C 

IF  (MODE)  250,260,250 
250  VARNCE=1 ./UMEAN 
GO  TO  270 

260  VARNCE=CHI5QR 

270  IF  (MTERMS.LE.0)  GO  TO  290 
DO  280  J=1,NTERMS 

S I GMA  A C J ) =ARR  A Y ( J , J ) McS/flRNCE/ C FREE  1 ^ I GriAX  ( J ) ) 

SIGMAA(J)=SnRT(S!GriAA(J)) 

280  RtiUL=RnUL4A(J)>;<R(J)H--SlGmX(J)/SIGm 

FREEJ=N7ERMS 

FTEST=(RMUL/FREEJ)/((l.-RmL)/FREEN) 

RMUL=SQRT(Ri1UL) 

GO  TO  563 
290  CONTINUE 
FREEJ=0. 

FTEST=0. 

RMUL=0. 

300  SIGMAO=VARNCE/FNPTS 

IF  (NTERnS.LE.0)  GO  TO  323 
DO  310  J=1,NTERMS 

DO  310  !<  = 1,NTERI1S' 

310  SIGmO=SIGMAO+VHRNCE>KXMEAN(J)><<XnEAN(K)>KARRAY(J,K)/(FREEl^IGriA 

2X(J)>.6IGf!AX(K)) 

320  SIGMAO=SQRT(SIGMAO) 

330  RETURN 
END 
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$ASSM 
READX  PROG 
SPORT 

FUNCTION  REfiDX( IUORD,N,NP,NTTYI,NTTYO- lEOF) 

C 

C $$S$SS$$$$  VERSION  OF  MAR  9,1977 

C 

C FUNCTION  READX  USUALLY  RETURNS  THE  NEXT  DECIPHER IDLE  NUMBER  ON  THE 
C INPUT  FILE  =NTTYI=  AS  THE  VALUE  OF  THE  VARIABLE  READX. 

C ANY  OUPUT,  SUCH  AS  ERROR  MESSAGES  OR  THE  PROrPT  CHARACTER, 

C IS  ON  UNIT  NTTYO. 

C 

C IU=  ALPHANUMERIC  INFORMATION  OF  THE  FIRST  1 OR  2 ILLEGAL  NON-NUMER ICAL 
C INFORMATION  ON  INPUT  FILE  NTTYI. 

C N=0  MEANS  NUMERICAL  INFORMATION  SUCCESSFULLY  PROCESSED; 

C N=1  CHECK  lU  LORD  FOR  NON-NUMERICAL  INFORMATION. 

C (READX=1.  IN  THIS  CASE). 

C NP=1  SEND  ! AS  A PROMPT  CHARACTER  UHEN  NEU  RECORD  REQUIRED. 

C NP=2  READ  A NE'J  RECORD. 

C NP=3  DO  BOTH  THE  ABOVE. 

C NTTYI=  INPUT  UNIT 

C NTTYO=  OUTPUT  UNIT  FOR  PROMPT  CHARACTER  AND  ERROR  MESSAGES. 

C IEOF=0  END  OF  FILE  NOT  YET  REACHED  ON  UNIT  NTTYI. 

C IEOF=l  END  OF  FILE  FOUND  ON  NTTYI. 

C 

C ILLEGAL  INFORMATION: 

C 

C IF  FIRST  CHARACTER  IS  NOT  A BLANK,  COMMA,  POINT,  MINUS,  OR 
C ft  NUMBER,  THE  FIRST  2 ILLEGAL  CHARACTERS  ARE  RETURNED  IN  =IU=. 

C ^ 

C • LEGAL  INFORMATION:^^ 

C 

C LEADING  BLANKS  ARE  IGNORED. 

C LEADING  COMMAS  ARE  IGNORED. 

C DECIMAL  POINTS  AND  EXPONENTIAL  TYPE  NUMBERS  ARE  TREATED  CORRCECTLY. 

C $ ON  THE  INPUT  FILE  IS  PRESUMED  TO  PRECEED  AN  IN-LINE  COMMENT  AND 
C CAUSES  READING  OF  A HEU  RECORD. 

C NUMBERS  ARE  TERMINATED  BY  A BLANK,  COMMA,  OR  BY  THE  END  OF  A RECORD. 

C 

C 

C READX  UAS  ORIGINALLY  IJRITTEN  BY  FRANK  MCCRACKIN  (MBS)  AND  UA3  MODIFIED 
C BY  FRED  M0P3IK  AND  BY  BRIAN  DICKENS.  (JAN  1977) 

C 

C 

c 

INTEGER  BRANCH 

INTEGER>k2  CD,DEC,1U2,N1,J,IEXP,IEXP1 
LOGICAL  ISIGNE 

DIMENSION  CD(83),DEC(10),TEN(10),TENTEN(10) 

DATA  DEC/'0','r,'2',*3','4','5','6','7','8',’9'/ 

DATA  TEN/1., l.El, 1.E2,  1.E3, I.E4, 1.E5, 1 . E6, 1 . E7, 1 . E8,  1 . E9/ 

DATA  TENTEN/l.,l.E10,l.E20,l.E30,l.E4a,l.E5O,l.E60,3*l.E70/ 

DATA  Nl/81/ 

IF  (NP.EQ.2.0R.NP.EQ.3)  N1  - 81 
.lEOF  « 0 
N » 0 
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SIGN  - 1. 

X - 0. 

Y - 1. 

YJ  » 0. 

C 

C FIND  FIRST  CHftRftCTER 

C 

15  IF  (N1.GT.80)  GO  TO  1300 

IF  (CD(NI)  GO  TO  1000 

ASSIGN  16  TO  BRANCH 
GO  TO  2000 

16  GO  TO  (43, 100,30,20,20,300) . IP 

20  N1  = Nl+1 

GO  TO  15 
C SET  SIGN 
30  SIGN  = -1. 

N1  = Nl+1 
GO  TO  15 
C 

C CALCULATE  NUMBER 

C 

43  X = J 

50  N1  = Nl+1 

IF  (N1.GT.30)  GO  TO  273 
IF  (CD(Nl) .EQ.'E')  GO  TO  50 
. ASSIGN  70  TO  BRANCH 
GO  TO  2000 

70  GOTO  (75,  100,205,200,270,273), IP 

75  X «=  X>X10.+J 

GO  TO  50 

C 

C CALCULATE  FRACTION 
C 

100  CONTINUE 

110  N1  = Nl+1 

IF  (N1.GT.B0)  GO  TO  273 
IF  (CD(Nl) .EQ.'E')  GO  TO  110 
ASSIGN  125  TO  BRANCH 
GO  TO  2008 

125  GO  TO  (133,3055,205,200,270,270), IP 

130  YJ  = 10.W+J 

Y « 10.>xY 
GO  TO  110 

C 

C CALCULATE  EXPONENT  I EXP 

C 

200  ISIGNE  = .FALSE. 
lEXP  = 1 
lEXPl  = 1 
GO  TO  210 

205  ISIGNE  = .TRUE. 
lEXP  = 1 
lEXPl  = 1 
210  N1  Nl  + 1 

IF  (N1.GT.80)  GO  TO  250 
ASSIGN  220  TO  BRANCH 
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GO  TO  2000 

220  GO  TO  (230,250,250,250,250.250),  IP 

230  lEXPl  = lEXP 

lEXP  = J+1 
GO  TO  210 

250  IF  (ISIGNE)  GO  TO  260 

READX  = SIGN»;(X+YJ/Y)>f:TEN<IEXP)>KTENTEN(IEXPl) 

N = 0 
RETURN 

260  READX  = SIGN>K(X+YJ/Y)/(TEN(  IEXP)>KTENTEN(  lEXPl)  ) 

N = 0 
RETURN 

2?0  READX  = SIGN><<(X+YJ/Y) 

N « 0 
RETURN 

C 

C RETURN  fiLPHft  fiRG 

C 

300  IU2  = CD(Nl) 

N1  »=  Nl+1 

IF  (N1.GT.80)  GO  TO  302 

IF  (CD(Nl).EQ.'  ' .OR.  CDCNl ) .EQ. ' , ' .OR.  CD(Nl) .EQ. 'S' ) GO  TO  302 
IU2  = IU2-X'20'+CD(N1)/X' 100' 

N1  = Nl+1 
302  lUORD  = IU2 
- N = 1 

REfiDX  =1. 

RETURN 

3055  URITE  (NTTYO,3056)N1 

3056  FORMftTC'  2d  . AT  COL.', 13) 

GO  TO  270 

1000  N1  = 1 

IF  (NP.EQ. 1.0R.NP.EQ.3)  URITE  (NTTYO, 1020) 

1020  FORMATC'  !') 

READ  (NTTYI-,  1010, END  = 9000)  CD 
1010  FORriAT(60Al) 

GO  TO  15 
C 

C CHARACTER  INTER? . ROUTINE 

C 

2000  DO  2010  J = 1,10 

IF  (CDCNl) .EQ.DEC(J))  GO  TO  2020 
2010  CONTINUE 
IP  » 6 

IF  (CDCNl) .EQ.' .')  IP  « 2 
IF  (CDCNl). EQ.'-')  IP  - 3 
IF  (CDCNl) .EQ.'+')  IP  = 4 

IF  (CDCNl). EQ.'  ' .OR.  CD CNl ) .EQ . ' , ' ) IP  - 5 
GO  TO  2030 
2020  IP  » 1 
J » J-1 

2030  GO  TO  BRANCH 
9000  lEOF  = 1 
RETURN 
• END 
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sftssn 

S0RT3  PROG 
SFORT 
STRGT  16 

C 

SUBROUTINE  S0RT3  (A,B,C,N) 

C 

c 

c 

C THIS  SUBROUTINE  SORTS  P 1-DIMENSIONAL  ARRAY 
C <A)  AND  THE  ARRAYS  (B)  AND  (C)  INTO  AN  ORDER  BASED 
C ON  THE  ELEMENTS  IN  ARRAY  (A). 

C 

DIMENSION  A(N),B(N),C(N) 

C 

IF  (N.LE.l)  RETURN 
DO  20  I = 2,N 
IMl  = I-l 
DO  10  J = 1, IMl 
JJ  = I-J 

IF  (A(JJ)  .LE.A(JJ+D)  GO  TO  20 
X = A(JJ) 

A(JJ)  = ACJJ+l) 

A(JJ+1)  = X 
X = B(JJ) 

B(JJ)  = B(JJ+1) 

B(JJ+n  = X 
X = C(JJ) 

C(JJ)  = CCJJ+l) 

C(JJ+1)  = X 
10  CONTINUE 

20  CONTINUE 

RETURN 
END 
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sftsbn 

TDEGAB  PROG 
SPORT 
STRGT  16 

c 

FUNCTION  TDEGflB  (T,PlT) 

C 

C 5{C3MoK>!ofo|oKJMoK5io(Ci|oK>KMoM<>)o»fcioMot=>ioMc>McMc<o|o|oMoMoK5f=^^ 

c 

C FUNCTION  TO  CPiLCULftTE  TEMPERPITURE  IN  DEGREES  ABSCLUTE 
C FROM  THERMOCOUPLE  READING 

C 

DIMENSION  AT(4) 

C 

TP  « 0 

DO  10  K = 1,4 
10  TP  = TP+ATa<)>!<T'’r:■^<K 

TDEGAB  = TP+273.15 
RETURN 
END 


sflssri 

THMPLS  PROG 
SPORT 
STRGT  15 

C >K;K>|oi<>loK:4o!oM<>to)oK>foMofoH>K>K;loiG<oK5ioicioKJtoM!XoK5tc<oMo<oMo(oK>K>Mo|otDMoMoK5M^^ 

c 

SUBROUTINE  THMCPL  CRT) 

C 

C 5(oK>l<>K>ioMoK>MoK>K>f<5)<5t;>t;>ioto(oK5^cictc>iclofofoK^>to)c>;oKiK>|cK>!oK>K>toiofoK5K>MoK>f^^ 

c 

C SUBROUTINE  TO  REPD  THERMOCOUPLE  TYPE  RND  PROVIDE  COEFFICIENTS  FOR 
C CONVERSION  OF  THERMOCOUPLE  READINGS  IN  MICROVOLTS  TO  DEGREES  CELCIUS 
C NEEDS  COMMON  /lO/  NTTYI , NTTYO. IN, NPR INT, NF ILEA, NF ILEB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP C 1 ) ) , (NTTYO, DUMP (2) ) , ( IN, DUMP (3) ) 

• 8.  ,(NPRINT,DUMP(4)),(NF1LEA,DUM?(5)),(NFILE3,DUMP(6)) 

C 

DIMENSION  AT(4) 

C 

C 

URITE  CNTTYO,10) 

10  FORMAT  (/'  GIVE  THERMOCOUPLE  TYPE,  K OR  E') 

20  READ  (NTTYI,39)  NTHC? 

30  FORMAT  (Al) 

ITHCP  = 4 

IF  (NTKCP.EQ.'K') ITHCP  = 1 
IF  (NTHCP.EQ.'E') ITHCP  = 2 
GO  TO  (40,60,80,90),  ITHCP 

C 

C TYPE  K THERMOCOUPLE, VALUES  FROM  TABLE  A7.2.3,NBS  MONO. 125 
C 

IF  (NFILEB.GT.6)  URITE  (NFILEB,50) 

40  IF  (NPRINT.GE.3)  URITE  (NPRINT,50) 

50  FORMAT  (/52H  TYPE  K THERMOCOUPLE  = N I-CR/r-l  I-AL,  EXPRESS  IONS  GOOD  / 
8.,4CH  TO  400  DEGREES  C.  (TABLE  A7,NSS  MONO.  125,  1974) ) 

AT(1)  = 2.438324BE-02 
AT<2)  = 9.7S30251E-09 
AT(3)  = 3.6276965E-12 
AT(4)  = -2.5756438E-16 

GO  TO  110  . - 

C 

C TYPE  E THERMOCOUPLE 

C 

IF  (NFILEB.GT.6)  URITE  (NFILEB,70) 

60  IF  (NPRINT.GE.3)  URITE  (NPRINT,7B) 

70  FORMAT  (/52H  TYPE  E THERMOCOUPLE  = N I -CR/CU-H I, EXPRESS  IONS  GOOD  / 
&,58HFR0M  -0.05  TO  +0.04,  0 TO  400  DEGREES  C. (TABLE  A5.2.3,NBS  /. 

8.  19HM0N0GRAPH  125,1974)) 

AT(1)  = 1.7022525E-02 
AT(2)  = -2.209724OE-07 
AT(3)  = 5.4889314E-12 
AT(4)  = -5.7669S92E-17 
GO  TO  110 
C 

C DUMMY  LOCATION 


non 


C 

80  IF  (NFILEB.GT.6)  URITE  (NFILEB,100) 

IF  (NPRINT.GE.3)  URITE  (NPRINT, 100) 

GO  TO  20 

ERROR  ROUTE 

90  URITE  (NTTYO,100) 

100  FORmT  (/40H  URONG  SPECIFICATION  FOR  THERIiOCOUPLE,TRY  AGAIN) 
GO  TO  20 
110  RETURN 
END 
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SASSli 

TPPF  PROG  D124:TPPF.FTN 
SPORT 

SUBROUTINE  TPPF(P,NU.PPF) 


PURPOSE— THIS  SUBROUTINE  COMPUTES  THE  PERCENT  POINT 

FUNCTION  VPLUE  FOR  THE  STUDENT'S  T DISTRIBUTION 
UITH  INTEGER  DEGREES  OF  FREEDOM  PftRPlMETER  “ NU. 

THE  STUDENT'S  T DISTRIBUTION  USED 
HEREIN  IS  DEFINED  FOR  RLL  X, 

AND  ITS  PROBABILITY  DENSITY  FUNCTION  IS  GIVEN 
IN  THE  REFERENCES  BELOU. 

NOTE  THAT  THE  PERCENT  POINT  FUNCTION  OF  A DISTRIBUTION 
IS  IDENTICALLY  THE  SAME  AS  THE  INVERSE  CUMULATIVE 
DISTRIBUTION  FUNCTION  OF  THE  DISTRIBUTION. 

INPUT  ARGUMENTS— P = THE  SINGLE  PRECISION  VALUE 

(BETUEEN  0.0  (EXCLUSIVELY) 

AND  1.0  (EXCLUSIVELY)) 

AT  UHICH  THE  PERCENT  POINT 
FUNCTION  IS  TO  BE  EVALUATED. 

— NU  “ THE  INTEGER  NUMBER  OF  DEGREES 

OF  FREEDOM. 

NU  SHOULD  BE  POSITIVE. 


OUTPUT  ARGUMENTS— PPF  = THE  SINGLE  PRECISION  PERCENT 

POINT  FUNCTION  VALUE. 

OUTPUT— THE  SINGLE  PRECISION  PERCENT  POINT  FUNCTION  . 

VALUE  PPF  FOR  THE  STUDENT'S  T DISTRIBUTION 
UITH  DEGREES  OF  FREEDOM  PARAMETER  = NU. 

PRINTING— NONE  UNLESS  AN  INPUT  ARGUMENT  ERROR  CONDITION  EXISTS. 


RESTRICTIONS— NU  SHOULD  BE  A POSITIVE  INTEGER  VARIABLE. 


— P SHOULD  BE  BETUEEN  9.0  (EXCLUSIVELY) 

AND  1.0  (EXCLUSIVELY). 

OTHER  DATAPAC  SUBROUTINES  NEEDED— NORPPF . 

FORTRAN  LIBRARY  SUBROUTINES  NEEDED— DS IN.  DOGS.  DSQRT.  DATAN. 
MODE  OF  INTERNAL  OPERATIONS— DOUBLE  PRECISION. 

LANGUAGE— ANSI  FORTRAN, 


COMMENT— FOR  NU  = 1 AND  NU  = 2.  THE  PERCENT  POINT  FUNCTION 

FOR  THE  T DISTRIBUTION  EXISTS  IN  SIMPLE  CLOSED  FORM 
AND  SO  THE  COi'PUTED  PERCENT  POINTS  ARE  EXACT. 

—FOR  OTHER  SMALL  VALUES  OF  NU  (NU  BETUEEN  3 AND  6. 
INCLUSIVELY).  THE  APPROXIMATION 
OF  THE  T PERCENT  POINT  BY  THE  FORMULA 
GIVEN  IN  THE  REFERENCE  BELOU  IS  AUGMENTED 
BY  3 ITERATIONS  OF  NEUTDN'S  METHOD  FOR 
ROOT  DETERMINATION. 

THIS  IMPROVES  THE  ACCURACY— ESPEC I ALLY  FOR 
VALUES  OF  P NEAR  0 OR  1 . 

REFERENCES— NATIONAL  BUREAU  OF  STANDARDS  APPLIED  MATHMATICS 
SERIES  55.  1364.  PAGE  949.  FORMULA  26.7.5. 

—JOHNSON  AND  KOTZ.  CONTINUOUS  UNIVARIATE 
DISTRIBUTIONS— 2.  1970,  PAGE  102, 

FORMULA  11. 

— FEDERIGHI.  'EXTENDED  TABLES  OF  THE 
PERCENTAGE  POINTS  OF  STUDENT'S  T 
DISTRIBUTION.  JOURNAL  OF  THE 
AMERICAN  STATISTICAL  ASSOCIATION, 
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1969,  PAGES  683-638. 

—HASTINGS  AND  PEACOCK,  STATISTICAL 
DISTRIBUTIONS--A  HANDBOOK  FOR 
STUDENTS  AND  PRACTITIONERS,  1975, 

PAGES  120-123. 

URITTEN  BY— JAMES  J.  FILLIBEN 

STATISTICAL  ENGINEERING  LABORATORY  (205.03) 
NATIONAL  BUREAU  OF  STANDARDS 
UASHINGTON,  D.  C.  20234 
PHONE:  381-921-2315 

ORIGINAL  VERSION— OCTOBER  1975. 

UPDATED  —NOVEMBER  1975. 


C 

C 

c 

c 


c 

c 

c 


c 


DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 


PI 

SQRT2 

DP 

DNU 

TERMl , TERM2, TERM3/TERM4, TERMS 
DPPFN 

DPPF,DCON.DARG,Z,S,C 

B21 

B31,B32,B33,B34 
B41,B42,B43, 344,845 
B5 1 , B52 , 353 . B54, B55, B56 
D1,D3,D5,D7,D9 


DATA  PI/3. 1415926535897900/ 


DATA  SQRT2/1 .4142I3562D0/ 
DATA  B21/0.25D0/ 


DATA  B31,B32,B33,B34.-'0. 0104166656666700, 5. 0D0,  16 . 0D3, 3 . 0D0/ 

DATA  B41,B42,B43,B44,B45/0.002S0416666667D9,3.0D0, 19.0D0, 17.0D0, 
1 -15.0D0/ 

DATA  B51,B52,B53,B54,S55.B56/3.03S31085069444D0,79.0D0,776.0D0, 

1 1482. 0D0, -1920. 0D0, -945. 0D0/ 


IPR=6 

CHECK  THE  INPUT  ARGUMENTS  FOR  ERRORS 

IF(P.LE.0.0.OR.P.GE. 1.0)GOTO50 
GOTO90 

50  LfRITEdPR,  1) 

URITE(IPR,46)P 
RETURN 
90  CONTINUE 

1 FORMATCIH  , 1 15H>5o!o}c>!ok  FATAL  ERROR— THE  FIRST  INPUT  ARGUMENT  TO  THE 
1 TPPF  SUBROUTINE  IS  OUTSIDE  THE  ALLOCABLE  (0,1)  INTERVAL 
46  FORMATdH  , 35H>K>K>^.•>K>K  THE  VALUE  OF  THE  ARGUMENT  IS  ,E15.8,6H  >K5(ok>)ok) 

START  POINT 

DNU«NU 

DP-p 

MAXIT«5 
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IF(NU.GE.3)G0T025g 
IFCN'J.EQ.  1)  GOTO  100 
IF(NU.EQ.2)GOTO203 
URITEdPR,  105) 

105  FORMATOH  .33HINTERNAL  ERROR  IN  TPPF  SUBROUTINE) 

PPF=0.0 

RETURN 

TREAT  THE  NU  = 1 (CAUCHY)  CASE 

100  DARG=PIh:DP 

PPF=-DC0S (DARG) /DS IN (DARG) 

RETURN 

TREAT  THE  NU  = 2 CASE 

200  TERM1=SQRT2/2.3D0 
TERri2=2.CDB>!:r:P-1.0D0 
TERM3=DSGRTCDP>»<(  1 .0D0-DP) ) 

PPF  =TERM1  -i^TERriZ/TERMS 
RETURN 

TREAT  THE  NU  GREATER  THAN  OR  EQUAL  TO  3 CASE 

250  CALL  NORPPF(P,PPFN) 

DPPFN=PPFN 

n=DPPFN 

D3=DPPFN^^■•>i<3 

D5=DPPFN>‘--^5 

D7=DPPFH>!o}<7 

D9=DPPFN>;:>i<9 

TERM1=D1 

TERM2 =B2 1 ( B3+D 1 ) /DN’IJ 

TERM3=Ei31>r^(B32>i:D'5+B33x;D3+B3<^Dl)/(DNU>K>!<2) 

TERM4=B4 1 C E42>t:D7+B43>}:D5+B44>KD3+845>«D  1 ) / (DNU>M<3) 
TERn5=B51>K(B52-i:D3+B53>KD7+354>i'D5-:-355>t=D3+B5S>:>Dl)/(DNU>ioK4) 
DPPF  =TERM  1 +TERM2+TERr  i3+TERn4+TERN5 
PPF=DPPF 

IF(NU.GE.7)RETURM 

IF(NU.EQ.3)GOTO308 

IF(NU.EQ.4)GOTO40O 

IF(NU.EQ.5)GOTO500 

IF(NU.EQ.G)GOTOS00 

RETURN 

AUGMENT  THE  RESULTS  FOR  THE  NU  = 3 CASE 

308  DCON=PI>::(DP-0.5D0) 

DARG=DPPF/DSQRT(DN.U) 

Z*=DATANCDARG) 

DO350IPASS=1,MAXIT 

S»DSIN(2) 

C=DC0SCZ) 

Z”Z-(2+S>t:C-DCON)/'(2.0D0>»C>KC) 

350  CONTINUE 

PPF-DSQRT(DNU)>kS/C 
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RETURN 

AUGMENT  THE  RESULTS  FOR  THE  NU  » 4 CASE 

400  DCON=2.0D0><<(DP-0.5ri0) 

DARG=DPPF/DSQRT(DNU) 

2=DATAN(DARG) 

DO450IPASS=1,MAXIT 

S=DSIN(Z) 

C=DCOSCZ) 

Z=Z-  ( (1 . 0DO+0 . 5D0h<C5<<C)  >kS-DCON)  /(  1 . 5D0>i<C*C>tC) 

450  CONTINUE 

PPF=DSQRT(DNU)>!<S/C 

RETURN 

AUGMENT  THE  RESULTS  FOR  THE  NU  = 5 CASE  ■ 

500  DCON=PI^(DP-0.5D0) 

DARG=DPPF/DSQR7(DNU) 

2=DATAN(DARG) 

DO550IPASS=1,MAXI7 

S=DSIN(Z) 

C=DCOS(Z) 

Z =Z- C Z+ ( C+ ( 2 . 0D0/3 . 0D0 ) >xC>!C>i<C ) >KS-BCON ) / ( ( 8 . 0D 0/3 . 0D0 ) *C>Mc4 ) 

550  CONTINUE 

PPF=DSQRT(DNU)>J-'S/C 

RETURN 

AUGMENT  THE  RESULTS  FOR  THE  NU  = 6 CASE 

600  DCON=2.0DO>K(DP-0.5D0) 

DARG=DPPF/DSQRT(DNU) 

Z=DATAN(DARG) 

DO6501PASS=1.MAXIT 

S=DSIN(Z) 

C=DC0S(Z) 

2 =Z-  C ( 1 . 0D0+9 . 5D0>fCHC+0 . 375D0>+C>{ok4)  *S-rCON ) / ( ( 1 5 . 0D0/8 . 0D0 ) >C>tot<5 ) 
650  CONTINUE 

PPF=DSQR7(DNU)>k3/C 

RETURN 

END 
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TRIM  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  TRIM  (E. S IGE, DOC, NDATP) 

C 

c 

C SUBROUTINE  TO  CPLCULATE  TRIMMED  MEANS  USING  EH) 

C UPTO  1/3  OF  VALUES  AT  EACH  END  'JILL  BE  CUT  OFF 

C 

C NEEDS  THE  FOLLOUING  SUBROUTINES  AND  FUNCTIONS: 

C S0RT3 

C UTAVEU 

C 

c 

C COMMON  BLOCKS  /lO/  AND  /REGRS/  DEFINED  VIA  ARRAY  'DUMP' 

C COMMON  /lO/  NTTYI.NTTYO, IN,NPRINT,NFrLEA,NFILEB 

C COMMON  /REGRS/  M(5) ,R(5) , YF1T(250) 

C 

COMMON  DUMP  (275) 

EQU I VALENCE  ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP (3 ) ) 

8.  , (NPRINT,DUMP(4) ) . CNF  ILEA, DUMP (5) ) , (NFILEB,DUMP<6) )' 

DIMENSION  M(5) ,R(5) ,YFIT(250) 

EQUIVALENCE  (M( 1 ) , DUMP ( 10) ) , (R( 1) ,DUM?( 15) ) , (YFIT( 1 ), DUMP (20) ) 

C 

c 

DIMENSION  E(l),SIGE(l),DOC(l) 

IF  (NDATA.GT.4)  GO  TO  IQ 

IF  (NFILEB.GT.6)  URITE  (NFILEB,50)  NDATA 

IF  (NPRINT.GE.3)  URITE  (NPRINT,50)  NDATA 

50  FORMAT (/'  NO  TRIMMED  MEANS  CAN  BE  CALCULATED  BECAUSE  THERE' 

E./'  ARE  ONLY',  12,'  DATA'/) 

RETURN 

10  NTRIMS=NDATA/3 

IF  (NTRIMS.lt. 1)  NTRIMS  =1 

C 

C ESTIMATE  AVERAGE  VALUES  UHEN  NO  DATA  REJECTED 

C 

IF  (NFILEB.GT.6)  URITE  (NFILEB,80) 

IF  (NPRINT.GE.3)  URITE  (NPRINT.BQ) 

80  FORMAT('l  AVERAGE  VALUES  BEFORE  DATA  TRIMMED'  /) 

CALL  UTAVEU  ( E , S I GE , NDATA , UTE A VE , S I GUTE , E A VE , ES I G , 1 , ND ATA , 0 ) 

C 

C SORT  ON  BASIS  OF  E 

C 

CALL  S0RT3  (E,SIGE, DOC, NDATA)  . 

C 

C LOOP  SEVERAL  TIMES  CUTTING  ONE  MORE  E AT  EACH  END  EACH  TIME 

C 

JUMP  = NDATA/ 10 

IF  (JUMP.LT.l)  JUMP  =1 

DO  30  I =JUMP, NTRIMS, JUMP 

JTRIMS  = NDATA 

NBOT  = l+I 

NTOP  = NDATA- I 

IF  (NFILEB.GT.6)  URITE  (NFILEB,20)  I, JTRIMS 
IF  (NPRINT.GE.3)  URITE  (NPRINT,20)  I, JTRIMS 
20  FGRMAT('l  TRIMMED  MEANS  FOLLOU: ' 

8./I3,'  DATA  CHOPPED  OFF  EACH  END  AND  ',13,'.  DATA  USED' 

8.//'  E SIG  E DOC'/) 

DO  90  J = NBOT, NTOP 

IF  (NFILEB.GT.6)  URITE  (NFILEB,40)  E( J) ,SIGE( J) ,DOC(J) 


J 


JL 
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. IF  (NPRINT.GE.3)  URITE  (NPRINT,40)  E ( J) , S IGE ( J) , DOC ( J) 

40  FORM0T  (3F7.2) 

90  CONTINUE 

CALCULATE  TRIMMED  MEAN  AND  SIGMA  FROM  SUBSET 

CALL  UTA  VEIJ  ( E ( NBOT) , S I GE  ( NBOT)  , JTR I MS , UTE A VE , S I GUTE  , EA VE , ES I G 
8.  ,NBOT,NTOP,0) 

CALCULATE  UINSORISED  MEAN  AND  SIGMA 

CALL  UTA  VEIJ  ( E , S I GE , ND  ATA , UTEA  VE , S I GUTE , E A VE , ES I G , NBOT,  NTOP , JTR  I MS ) 
30  CONTINUE 
RETURN 
END 
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TRIMRD  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  TR IHRD (NTITLE, NLOOPY,  IDOLD,  E,  S IGE,  SUT, DOC, NT I ME, TREAD 
8.  ,SIGT,RATE,SIGR,  ID,  INDfiTA, NDATA, HERROR) 

C 

c 

C NEEDS  THE  FOLLOUING  SUBROUTINES  AND  FUNCTIONS: 

C ACTIV 

C EREAD 

C READEM 

C READX 

C AND  COMMON  /lO/  NTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB 

C 

COMMON  DUMP  (275) 

EQU I VALENCE  ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP ( 3 ) ) 

& , (NPRINT,DLIMP(4) ),  (NFILEA,DUMP(5)),  (NFILEB,DUMP(b)) 

C 

DIMENSION  NTITLE(l) ,NTIMEC1) ,TREAD(2>75) ,RATE(2,75) 

DIMENSION  TEMP(2,75) ,SIGT(2,75),SIGR(2,75) ,E( 1) ,3IGE(  1) 

D I MENS  I ON  NSTAR ( 32 ) , SUT ( 1) , DOC ( 1) 

DIMENSION  AT(4) , IDOLDC 1) , ID( 1) 

NLOOPY  = NLOOPY+1 
C 

c 

URITE  (NTTYO, 110)  NLOOPY 
110  FORMAT  (12H  FILE  NUMBER, 13) 

C 

C READ  AND  URITE  TITLE  OF  INPUT  FILE 

C 

IF  (NPRINT.GE.3)  URITE  (NPRINT, 10) 

10  FORMAT(' 1') 

READ  (IN, 120)  (NTITLE( I), 1=1.64)  . 

120  FORMAT  (32A2/32A2) 

DO  138  I = 1,32 
130  NSTAR(I)  = 21-1>}::k 

IF  (NFILEB.GT.b)  URITE  (NFILEB.140) 

IF  (NF1LEB.GT.6)  URITE  (NF ILEB,  120)  ■ (NTITLE ( I ) , I = 1 , 64) 

IF  (NPRINT.lt. 3)  GO  TO  151 
URITE  (NPRINT, 120)  NSTAR 
URITE  (NPRINT, 140) 

140  FORMAT  (2SH  TITLE  OF  INPUT  FILE  IS  ://) 

URITE  (NPRINT, 120)  (NTITLE( I) , 1=1,64) 

URITE  (NPRINT, 150) 

150  FORMAT  (//) 

URITE  (NPRINT, 120)  NSTAR 
URITE  (NPRINT, 150) 

C 

C READ  IN  DATA 

C 

151  IF  ( INDATA. GT.0) GO  TO  85 
C 

C GET  THERMOCOUPLE  COEFFICIENTS,  READ  IN  DATA 

C 

CALL  THMCPL  (AT) 

CALL  READEM  (NTIME, TREAD, SIGT.RATE.SIGR, ID, NDATA) 

C 

C CALCULATE  E ACT.  AND  ASSOCIATED  SIGMA 

C 

DO  170  I = 1, NDATA 
• IDOLD(I)  = ID(I) 
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CALL  ftCTIV  (E(I).SIGE(D.TEMPa,  I),  TEMP  (2,  I) , S IGTC 1 , I)  , S IGTC2,  I ) 
8.  ,TREPD(  1,  I)  ,TPEflD(2,  I)  ,SIGT(  1,  n ,SIGTC2.  I) 

8.  ,RATE':i,  I),  RATE  (2,  D , S IGR  (1 , I ) , S IGR  (2,  I ) 

8.  ,AT,HERROR) 

IF  (HERROR.GT.0)  RETURN 
170  CONTINUE 
GO  TO  300 

READ  IN  E VALUES 

85  IF  ( INDATA. EQ. 1)  GO  TO  83 
WRITE  (NTTY0.89) 

89  FORMAT  (/'READ  INITIAL  AND  FINAL  SAMPLE  WEIGHTS,  FREE  FORMAT') 
UINITL  = READX  ( lU. HERRCR, 3, IN, NTTYO, lEOF) 

UFINAL  = READY  ( lU, HERROR, 1 , IN, NTTYO, lEOF) 

SAMPLJT  = UINITL-WFINAL 

IF  (NFILE3.GT.6)  UR  ITE (U.F  ILEB, 8 1 ) UIN  ITL. UF  INAL 
IF  (NPRINT.GE.3)  UR ITE (NFR IHT, 3 1)  UIN I TL, UF INAL 
• 81  FORMAT(/'  INITIAL  AND  FINAL  WEIGHTS  READ  FROM  INPUT  FILE  AS' 

8.  /2F15.3) 


88  CALL  EREAD  (IDOLD,E,SIGE,SUT,DCC,NDATA, INDATA, NERROR) 

IF  ( INDATA. EQ. 1)  GO  TO  87 
DO  86  I = 1,NDATA 

86  DOC(I)  = ((UINITL-SUT(I))/SAMPUT)>K100. 

87  CONTINUE 

OUTPUT  WHATEVER  WAS  INPUT 

IF  (NFILEB.GT.6)  WRITE  (NFILEB, 100) 

IF  (NPRINT.GE.3)  WRITE  (NPR INT, 100) 

100  FORMAT(/'  NUMBER', 9X,'E',5Y,'SIG  E' , 4X, ' D . 0 . C . ' , 12X, ' SWT' /) 

IF  (NFILEB.GT.6)  WRITE  (NFILEB, 210)  ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I ) 
& ,SWT(I), I=1,NDATA) 

'^IF  (NPRINT.GE.3)  WRITE  (NPRINT,210)  ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I ) 
8,  ,SWT(I),  I = 1,NDATA) 

210  FORMAT( I7,3F10.2,F15.2) 

300  IF  (NFILEB.GT.6)  WRITE  (NFILEB, 70)  NDATA 
IF  (NPRINT.GE.3)  WRITE  (NPRINT,70)  NDATA 
70  F0RMAT(//I6, ' DATA  READ  IN'//) 

RETURN 

END  ’ 


X 
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UTAVEU  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  UTAVEU  (E,SIGE,HDATA,UTEAVE.S1GUTE,EAVE,ESIG 
8.  ,NBOT,NTOP,NUIHS) 

C 

c 

C UIHSORISED  VERSION 

C 

C SUBROUTINE  TO  CALCULATE  AVERAGE  E (UTEAVE)  AND  STANDARD  DEVIATION  (SIGUTE) 
C FROM  INPUT  LIST  E AND  SIGE  CONTAINING  = NDATA  = VALUES 
C ALSO  CALCULATE  UNUEIGHTED  AVERAGE  AND  95;^  CONFIDENCE  RANGES 

G 

C NEEDS  THE  FOLLOUING  COMMON  BLOCKS  AND  SUBROUTINES: 

C COMMON  /lO/  NTTYI^NTTYO,  IN,NPRINT,NFIL£A,NFILEB 
C COMMON  /REGRS/  M(5) , R (5) , YF IT(2r50) 

C 

C NEEDS  SUBROUTINES: 

C AVSDN 

C CHISQ 

C REGRES 

C TPPF 

C 

C NUINS.GT.0  MEANS  ESTIMATE  UIHSORISED  MEAN  AND  SIGMA, 

C I.E..  REJECT  ALL  INPUT  VALUES  BEFORE  N30T  IN  LIST  AND  ALL  THOSE 
C AFTER  NTOP.  ALSO,  REPLACE  THE  REJECTED  VALUES  UITH  THE  NEAREST 

C UNREJECTED  VALUES  (NBOT  OR  NTOP  IN  LIST  AS  THE  CASE  MAY  BE). 

C 

c 

COMMON  DUMP  (275) 

EQU I VALENCE  ( NTTY I , DUMP (!)).( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP ( 3 ) ) 

& , (NPRINT,DUMP(4)). (NF ILEA,DUMP (5) ) , CNF ILEB, DUMP (6) ) 

DIMENSION  M(5) ,R(5) ,YFIT(250) 

EQUIVALENCE  (M( 1 ) , DUMP ( 10) ) , (R ( 1 ) , DUMP ( 15) ) , (YF IT( 1 ) , DUMP (20) ) 

C 

DIMENSION  E(1),SIGE(1),A(5),SIGA(5) 

C 

C CALCULATE  AVERAGE  UNUEIGHTED  E 

C 

UTEAVE  =0. 

SIGUTE  = l.E-09 
EAVE  =0. 

ESIG  = l.E-09 
SIGAVE  = l.E-09 
FREE  =0. 

CHIUTE  =0.  , . 

CHIUNU  =0. 

IF  (NDATA. LE.0) RETURN 
IF  (NDATA. GT. 1) GO  TO  200 
UTEAVE  = Ed) 

SIGUTE  = SIGE(l) 

SIGAVE  = SIGE(l) 

EAVE  = Ed) 

ESIG  = SIGECl) 

RETURN 

2B0  CONTINUE 

IF  (NUINS.LE.0)  GO  TO  201 

C 

C GET  READY  TO  CALCULATE  UINSORISED  MEAN  AND  SIGMA 

C 

DO  70  J=1,NB0T 
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ooo  oj  non  non  non  non  non  non 


E(J)=E(HB0T) 

70  SIGE(J)=SIGE(NBOT) 

DO  83  J=NTOP,HDh™ 

E(J)=E(NT0P) 

88  SIGE(J) =SIGECNTOP) 

IF  (NFILEB.GT.6)  UR ITE (MF ILEB, 35) 

IF  (NPRINT.GE.E)  UR ITE (NFR INT. 35) 

85  FORMATC//'  UINSORISED  MEAN  AND  SIGMA  FOLLOU:' 

8./'  (I.E.,  REPLACE  REJECTED  VALUES  UITH  NEAREST  UNREJECTED  VALUE) 

8./) 

201  CONTINUE 

CALL  AVSDM  (EAVE,ESIG,E,NDATA) 

CALL  CHISQ  (E,SIGE,CHIUNU,NDATA) 

CALCULATE  AVERAGE  SIGE 

CALL  AVSDN  (SIGAVE,SIGSIG,SIGE,NDATA) 

UINSORISE 

IF  (NLJINS.GT.0)  ESIG=ESIG>i;SQRTi:FLOAT(NDATA-l)/(FLOATCNUINS-l) 

8.  >KFLOAT(NLJINS))) 

CALCULATE  IJEIGHTED  AVERAGE  OF  E ^ 

CALL  REGRES  (E,E,SIGE,NDATA,0,M, 1, YFIT,AO,A,SIGAO,SIGA 
8c , R , RMUL , CH I UTE , FTEST) 

UTEAVE  = AO 

CALCULATE  SIGMA  FOR  WEIGHTED  E AVERAGE 

SIGIJTE  = 0. 

DO  10  I = l.NDATA 
10  SIGI.JTE  = SIGUTE-'rl./SIGE(I)>i;>i:2 
SIGIJTE  = SQRTCl./SIG'JTE) 

FDATA  = NDATA-1 
^ FREE  = NDATA-2 

IF(NUINS.LE.0)  ESIG  = ES IG/SQRTCFDATA) 

CALCULATE  95;i  CONFIDENCE  RANGE 

NDOF  = NDATA-2 
CALL  TPFF  ( 0.95, NDOF, CUTZ) 

T = CUT2>::SIGUTE 
UTEHI  = IJTEAVE+T 
UTELO  = LJTEAVE-T 
T=  CUTZXCSIG 
UNWEHI  = EAVE+T 
UNUELO  = EAVE-T 

OUTPUT  AVERAGES  . 

IF  (NPRINT.lt. 3)  GO  TO  100 
IF  (NUINS.GT.0)  GO  TO  45 

WRITE  (NPRINT,30)  UTEAVE,SIGUTE,CHIUTE,SIGAVE,FREE 
3 FORMAT  (/'  IJEIGHTED  MEAN  E IS  ',F?.3,'  + OR  - ',F7.3/ 

8c  ' REDUCED  CHISQ  FOR  E CALCULATION  IS',F7.3,'  (SHOULD  BE  1.)'/ 

8.  ' UNWEIGHTED  MEAN- OF  SIGMAS  IS  ',F7.3,/ 

8.,'  CALCULATED  OVER  ',F5.0,'  DEGREES  OF  FREEDOM') 

OUTPUT  CONFIDENCE  LIMITS 

WRITE  (NPRINT,49)  WTELO,WTEHI 
40  FORMAT  (/'  ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY'/ 

8.  ' DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE' , F7 . 3, ' TO' 
8.  F7.3/'  FOR  95?i  CONFIDENCE  LEVEL') 
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45  URITE  (NPRIMT.50)  EAVE, ES IG, UNUELO, UNUEH I . CH lUNU, CUTZ 
50  FORMAT  (/'  IJHIJEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
8.  /'  OF  ITS  SIGMA  ARE',F7.3,'  AND'.F7.3 
8.  /'  THIS  GIVES  A CONFIDENCE  RANGE  0F'.F7.3,'  T0',F7.3 
8./'  CHI-SOUARE  FOR  UNUEIGHTED  E 1S',F7.2 
8./'  T VALUE  APPLIED  !S',F7.3/) 

100  IF  (NFILEB.LE. 6) RETURN 
IF  (NlJINS.GT.cn  GO  TO  105 

URITE  ( NF  I LEB . 30 ) I JTE  A VE , S I GI.JTE , CH I UTE , S I GAVE , FREE 
URITE  ( NF  I LEB . 40 ) UTELO , l.JTEH  I 

105  URITE  (NFILEB,50)EAVE,ESIGJJNUELO,UNUEHI,CHIUNU,CUTZ 
RETURN 
END 
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File  LOTRIM,  which  automatically  assigns  all  files  needed  to 
assemble  the  TRIMPG  overlays  and  drives  the  LIBLDR  program  to  make 
the  overlays.  Use  as  DO  LOTRIM, DO. 


flC  TRIMPG, 1D0 
AS  362 

AC  TRIML5,5D0 
AC  TGTRIB,7D0 
AC  OVERLB, SDG 
AC  F0RLIB,FD0 
RUN  LIBLDR, D0 
CL 

AC  TRIMOl, IDO 
AC  PRIMTB,7D0 
AC  TRIMRB,SD0 
AC  THMCSB,9D0 
AC  READM3,nD0 
AC  ACTIVe,BD0 
AC  READXB,CD0 
AC  EREADB,DD0 
AC  TDEGBB,ED0 
ST 
CL 

AC  TRIMO2,1D0' 
AC  TRIMB,7D0 
AC  UTAVUB,SDO 
AC  TPPFB,9D0 
AC  HORPFB,ADO 
AC  SORT33,BD0 
AC  AVSDMB,CDO 
AC  CHISOB,DD0 
AC  REGRSB.EDO 
AC  FCTWB,2D0 
AC  MATINS, 4D0 
ST 
CL 
ZU 
TR 


q^2 


File  TRIML5 , which  is  assigned  by  LOTRIM  during  assembly  of  the 
TRIMPG  overlays.  This  file  contains  the  appropriate  responses  to  the 
LIBLDR  program. 


OUT  1 TRIMPG 

B1  3576 

BC  044C 

LO  7 

LI  0 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

LF  1 

END 

OUT  1 TRIMOl 

OV 

LI  7 

LI  6 

LI  9 

LI  A 

LI  B 

LI  C 

LI  D 

LI  E 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  I 

END 

OUT  1 TRIM02 

OV 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

LI  D 

LI  E 

LI  2 

LI  4 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 


Memory  map  of  the  base  segment  of  the  TRIMPG  program. 


REL  PROGS: 
3576  TGTRIN 
4CSE  .S 
4E3E  .ME3 
4F18  0H 


4P6C  OVERLY  4BCP1  I FETCH  4C3C 
4CC4  .P  4D4S  .0  4DF6 
4EE4  .U  4EE4  .V  4EF2 
6162 


ABS  PROGS: 
NONE 


ENTRY-POINTS: 

4A90  OVERLY  4BCC  I FETCH  4C3E  .H  4C90 
4CC6  .P  4D48  .Q  4DF8  .0  4E40 
4EC2  .U  4EEA  .V  4EF4  @R  4F66 


COMMON-BLOCKS: 
FBB2  // 


UNDEFINED: 

PRIMTR  TRIMRD  TRIM 


.H 

.0 

@R 


.S 

.MES 

0H 
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Memory  map  for  the  initialization  segment  TRIMOl  of  the  TRIMPG  overlay. 


REL  PROGS: 


3576 

TGTRIM 

4A6C 

O'VERLY 

4C8E 

.S 

4CC4 

.P 

4E3E 

.MES 

. 4EB4 

.IJ 

4F18 

eH 

62CA 

PP.IMTR 

786C 

READEM 

7E32 

ACT  IV 

90EE 

TDEGAB 

919C 

.P 

9386 

ALOG 

9494 

EXP 

9613 

. Y2 

9698 

ABS 

9723 

SS 

9772 

. RARG 

97D0 

.ZERO 

97D3 

4BCA 

IFETCH 

4C3C 

.H 

4D46 

.Q 

4DF6 

.0 

4EE4 

.V 

4EF2 

@R 

6638 

TRIMRD 

7472 

THMPLS 

86C4 

READX 

8ES3 

EREAD 

91D3 

.A 

927E 

SORT 

959A 

A I NT 

9612 

.Y 

96AE 

• U 

96FC 

.COMP 

979E 

$8 

97C8 

.5 

fiBS  PROGS; 
NONE 


ENTRY-POINTS: 
4P190  OVERLY 
4CC6  .P 
4EC2  .U 
62EE  PRINTR 
?EA6  ACT IV 
919E  .R 
9496  EXP 
969A  ABS 
9774  .RARG 


4BCC  IFETCH 
4D43  .Q 
4EEA  .V 
665C  TRiriRD 
S6E3  READX 
91DA  .A 
959C  A I NT 
96B0  .U 
97A0  $3 


4C3E  .H 
4DF8  .0 
4EF4  @R 
7496  THHCPL 
8EAC  EREAD 
9230  SORT 
9614  .Y 
96FE  .COMP 
97CC  .5 


4C90  .S 
4E40  .MES 
4F66  QH 
7399  READEM 
91 12  TDEGAB 
9338  ALOG 
9S1A  .Y2 
972A  $6 
97D4  .ZERO 


COMMON-BLOCKS: 
FBB2  // 


UNDEFINED: 

TRIM 
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Memory  map  for  the  segment  TRIM02,  which  calculates  trimmed 
means  in  the  TRIHPG  program. 


REL  PROGS: 


3576 

TGTRIM 

4fiSC 

O'v^RLY 

4BCft 

I FETCH 

4C3C 

.H 

4C8E 

.S 

4CC4 

.P 

4D46 

.0 

4DF6 

.0 

4E3E 

. MES 

4EB4 

• U 

4EE4 

.V 

4EF2 

0R 

4F18 

(?H 

62Cft 

TRIM 

6872 

UT8VEU 

7320 

TPPF 

81C6 

NORPPF 

849E 

S0RT3 

S69C 

8VSDN 

8824 

CHISQ 

898? 

REGRES 

9F4ft 

FCTN 

9FD2 

M8TINV 

87D3 

DCOS 

A848 

.D 

8853 

.COMEX 

8826 

DSIM 

8ECC 

DLOG 

AF3C 

DEXP 

B1 14 

DSHRT 

B316 

D8T8M 

Eb30 

S7 

B6DE 

$9 

B716 

DMOD 

B788 

D8INT 

E84C 

08 

B866 

@1 

E374 

0S 

B836 

.X 

B8C6 

DABS 

B8E0 

.G 

BCFb 

0F 

B9FC 

0L 

B82C 

0K 

BA5C 

□M 

3BFS 

02 

BC06 

0D 

BD20 

0T 

BD43 

0E 

BD6C 

00 

BDS8 

0N 

BDE2 

0U 

BDFA 

@V 

BElft 

0P 

EE48 

0B 

BE58 

.D8RG 

BE9C 

.DDARG 

EF32 

. DSUftP 

BF8E 

. DRTN 

BFB6 

.R 

BFF2 

.ft 

C098 

SORT 

C180 

P.LCG 

C28E 

EXP 

C3B4 

ftINT 

C42C 

FLOAT 

C432 

FLOAT? 

C468 

.U 

C4S8 

.COMP 

C4E4 

$6 

C52E 

. R8RG 

C558 

S3 

C584 

.5 

C58C 

.ZERO 

C594 

D7DE 

PlBS  PROGS: 
NONE 


ENTRY-POINTS: 


4ft90 

OVERLY 

4BCC 

I FETCH 

4C3E 

.H 

4C90 

.S 

4CC6 

.P 

4D48 

.Q 

4DF8 

.0 

4E40 

.MES 

4EC2 

.U 

4EEA 

.V 

4EF4 

OR 

. 62EE 

TRIM 

6895 

UT8VEU 

7344 

TPPF 

81EA 

NORPPF 

84C2 

S0RT3 

86C0 

AVSDN 

8343 

CHISQ 

8986 

REGRES 

9F6E 

FCTN 

9FF6 

MATINV 

A7D2 

DCOS 

A34C 

.D 

A85A 

. COMEX 

ftft28 

DSIN 

ABCE 

DLOG 

AF3E 

DEXP 

B1 16 

DSQRT 

B318 

D8T8N 

3632 

S7 

B6E0 

S9 

B718 

DMOD 

B7SA 

DA  I NT 

B84E 

08 

B868 

01 

B876 

es 

B898 

.X 

B8C3 

DABS 

B8E2 

.G 

B8F3 

OF 

B9FE 

0L 

BA2E 

QK 

BASE' 

OM 

BBFA 

02 

BC03 

0D 

BD22 

0T 

BD4A 

0E 

BD6E 

00 

BDSft 

0N 

BDE4 

@U 

BDFC 

ev 

BEIC 

OP 

BE4C 

0B 

EE5C 

.DARG 

EE9E 

.DDARG 

BF34 

. DSUAP 

BF90 

. DRTN 

EFB3 

.R 

BFF4 

.A 

C09A 

SORT 

C1A2 

ALOG 

C2B0 

EXP 

C3B6 

ft  I NT 

C42E 

FLOAT 

C434 

FLOAT? 

C46C 

.U 

C4BA 

..  COMP 

^ C4E6 

So 

C530 

C5E2 

.RARG 

0H 

C55C 

S8 

C588 

.5 

C590 

.ZERO 

COMMON-BLOCKS: 
FBB2  // 


UNDEFINED: 

NONE 
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Appendix  D 


TGDEPG,  a FORTRAN  program  to  calculate  activation 
energies  from  rate  and  temperature  data,  to  detect 
outliers  and  to  make  normal  probability  plots. 


Listing  of  file  SETDE,  used  as  SETDE,D0  to  assign  several  files 
needed  by  the  TGDEPG  program. 


AS 

120 

AS 

220 

AS 

320 

AS 

420 

AS 

520 

AS 

662 

AS 

720 

AS 

820 

AS 

920 

AS 

A20 

AC 

TGDEO1,BD0 

AC 

TGDEO2,CD0 

AS 

D20 

AS 

E20 

AS 

F20 

fiSSIGN  INPUT  (FILE  7)  fiHD  OUTPUT  (FILE  3)  THEN  TYPE  'RUN  TGDEPG, D0' 
TR 
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Example  of  input  for  activation-energy-calculating-probability-plot 
program  TGDEPG.  User  input  is  underlined.  Start  the  procedure  by  typing 
DO  SETGDE,D0. 


TGDEPG  PROGRftM 
READ  INPUT  DATA  FROM  FILE  7 
FILE  6 IS  FOR  OUTPUT 
PUT  PROCESSED  DATA  ON  FILE  8 
GIVE  NUMBER  OF  FILES  TO  EXAMINE  (IN  FREE  FORMAT) 

I 

1 

Examine  i files 

GIVE  CHANCE  CF  REJECTING  EXTREME  VALUE  IF 
FLUCTUATIONS  ARE  PURELY  RANDOM 
(0.01  TO  0.40,  ZERO=0.10) 

FREE  FORMAT 

I 

0 

TITaNCE  of  URONGLY  REJECTING  RANDOMLY  PLACED  EXTREMUM  IS  0.10 

GIVE  0 FOR  RATE  DATA  INPUT 

1 FOR  E/SIG  E INPUT  (OUTPUT  OF  TGRUNF) 

UITH  DEGREES  OF  CONVERSION  IN  FILE 

2 FOR  E/SIG  E INPUT  UITH  D.O.C.  TO  BE  CALCULATED 

I 

1 

riLE  NUMBER  1 


Because  of  (i)  the  complexity  of  the  TGDEPG  program  itself, 

(ii)  the  fact  that  it  is  allowed  to  edit  data  files  autonomously 
manner,  and  (iii)  the  controversy  surrounding  the  procedure,  several 
examples  of  output  have  been  provided.  The  reader  will  have  to 
decide  for  himself  whether  the  results  are  acceptable  or  not.  Comparison 
of  the  results  from  the  programs  TGTRIM  and  TGDEPG  is  undoubtedly  worthwhile. 
TGTRIM  calculates  trimmed  means  using  the  magnitudes  of  the  input  values 
in  the  rejection  test;  TGDEPG  also  uses  the  standard  deviations  of  the 
input  values. 
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A TGDEPG  run  in  which  a coherent  subset  of  activation  energies  was 
selected  from  an  input  set  containing  several  widely  divergent  values. 


TITLE  OF  INPUT  FILE  IS  : 

NBS  706  IN  50y,  02  1/12/78  NEU  FURNACE  PRESS=8O0 


ii<— V ti*~J  •**‘Ji'**J  *~^l  **A**~it~A'**-  t~*»***Jr*Ji~Ji'**J'**it**A**iT**i 


CHANCE  OF  LiRONGLY  REJECTING 
IS  15.04 


PUT  PROCESSED  DATA 

ON  FILE 

NUMBER 

E 

SIG  E 

1 

25.05 

0.79 

2 

23.40 

0.38 

3 

23.28 

0.37 

4 

21.56 

0.43 

5 

21.29 

0.30 

6 

20.38 

0.35 

7 

21.51 

0.57 

8 

17.77 

0.85 

9 

18.68 

0.42 

10 

23.03 

0.28 

11 

21.67 

0.28 

12 

21.28 

0.35 

13 

21.42 

0.20 

14 

19.54 

0.25 

15 

21.96 

0.21 

16 

20.58 

0.32 

17 

21.83 

0.28 

18 

21.78 

0.29 

19 

21.70 

0.24 

20 

21.56 

0.66 

21 

22.32 

9.55 

22 

21.51 

0.26 

23 

23.97 

0.21 

24 

21.60 

0.29 

25 

21.96 

0.31 

26 

24.92 

0.34 

27 

21.77 

0.21 

28 

22.45 

0.27 

29 

23.01 

0.26 

30 

21.62 

0.40 

31 

21.97 

0.30 

32 

24.47 

0.39 

33 

23.29 

0.26 

34 

20.79 

0.79 

35 

99.73 

31.67 

36 

43.29 

2.  16 

.37 

33.39 

1.79 

PASS  NUMBER  1 


RANDOMLY  PLACED  EXTREMUM 


'.O.C. 

SUT 

2.56 

482964.00 

3. 14 

479109.00 

9.56 

436394.00 

12.21 

418809.00 

14.04 

406647.00 

16.56 

389392.00 

18.34 

378025.00 

20.78 

361836.00 

22.59 

349784.00 

25.10 

333058.00 

26.92 

320969.00 

29.51 

303777.00 

31.43 

290970.00 

34.19 

- 272644.00 

36.21 

259205.00 

33. 10 

240006.00 

41.23 

225799.00 

44.31 

205316.00 

46.59 

190178.00 

49.87 

168359.00 

52.25 

152528.00 

55.71 

129496.00 

58.22 

112843.00 

61.76 

89302.31 

64.29 

72444.38 

67.85 

48830.30 

70.33 

32330.  10 

73.65 

10258.70 

75.86 

-4499.84 

78,67 

-23158.90 

80.44 

-34945.20 

82.50 

-48610.70 

83.73 

-56834.90 

85.32 

-67363.69 

86. 13 

-72753.69 

86.56 

-75655.33 

86.90 

-77861.00 
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PRESENT  STATUS: -AVERAGE  WEIGHTED  E IN  KCAL/MOLE  IS  22.028 
UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  1.304 


EXAMINE  LOGCSIGEd))  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  PS  STATISTIC.  WHERE 
PS  *=  (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
K = SCALE  FACTOR 

AND  2 = NORMAL  DISTRIBUTION  QUANTILE 


DS  = 0.000C  0.164)  + 0.737C  0.170)>?<Z 

REDUCED  CHI  SQUARE  = 0.317  CALCULATED  OVER  37  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.737 

REJECTED  OUTLIERS  FOLLOWCABSCDS  VALUE)  GREATER  THAN  2.616) 


* 

DOC/TIME 

DS 

2 

E SIGE  T/SWT 

RATE 

TEMP 

32 

82.5 

5.85 

2.14 

24.471  0.390  -48611. 

1 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
36  DATA  LEFT 

OUTPUT  REMAINING  DATA 


* 

DOC/TIME 

DS 

2 

E 

SIGE 

1 

2.6  -0.12 

0.41 

25.052 

0.787 

2 

3.1  -1.02 

-2.  14 

23.400 

0.385 

3 

9.6  -0.93 

-1.30 

23.278 

0.372 

4 

12.2  -8.80 

-1.16 

21.559 

0.425 

5 

14.0  -0.71 

-1.03 

21.292 

8.295 

6 

16.6  -0.66 

-0.82 

20.373 

0.345 

7 

18.3  -0.58 

-0.57 

21.510 

0.573 

8 

20.8  -8.56 

-3.41 

17.773 

0.849 

9 

22.6  -0.51 

-0.27 

13.673 

0.423 

10 

25.1  -0.38 

0.00 

23.031 

3.277 

11 

26.9  -0.28 

0.  13 

21.675 

0.277 

12 

29.5  -0.14 

0.34 

21.276 

0.345 

13 

31.4  -0.07 

0.49 

21.422 

0.200 

14 

34.2  -0.00 

0.65 

19.540 

0.252 

15 

36.2 

0.34 

0.73 

21.962 

0.215 

16 

39.1 

0.59 

0.92 

20.576 

0.322 

17 

41.2 

0.83 

1.03 

21.831 

0.282 

18 

44.3 

1.95 

1.48 

21.734 

0.292 

19 

45.6  -0.94 

-1.43 

21.697 

0.236 

20 

49.9 

0.40 

0.82 

21.565 

0.659 

21 

52.3 

2.20 

1.72 

22.321 

0.545 

22 

55.7  -0.95 

-1.72 

21.514 

0.261 

T/SUT  RATE  TEMP  RATE 

482S64. 

479109. 

436394. 

^18809.  . 

435647. 

339892. 

378025. 

361836. 

3497S4. 

333058 . 

323969. 

303777. 

293970. 

272644. 

259285. 

240006 . 

225799. 

285316. 

190173. 

168359. 

152528. 

129496. 


D6 


23 

58.2 

-0.50 

-0.20 

23.971 

0.213 

112843 

24 

61.8 

-0.45 

-0.07 

21.605 

0.238 

89302 

25 

64.3 

0.84 

1 . 16 

21.964 

0 . 305 

72444 

26 

67.8 

-0.67 

-0.92 

24.919 

0.341 

48830 

27 

70.3 

-0.01 

0.57 

21.775 

0.211 

32330 

28 

73.6 

-0.53 

-0.34 

22.452 

0.269 

10259 

29 

75.9 

-0.62 

-0.65 

23.012 

0.262 

-4500 

30 

78.7 

-0.49 

-0.  13 

21.619 

0.405 

-23159 

31 

80.4 

-0.30 

0.07 

21.974 

0.297 

-34945 

33 

83.5 

0.94 

1.30 

23.283 

0.259 

-43611 

34 

85.7 

-0.  18 

0.27 

20.793 

0.739 

-56835 

35 

86.3 

-0.53 

-0.49 

99.726 

31.669 

-67364 

36 

86. 1 

-8.66 

-0.73 

43 . 292 

2.  160 

-72754 

37 

86.6 

-0.28 

0.20 

33.304 

1 .737 

-75555 

PASS  NUMBER  2 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.983 
UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  1.330 


EXAMINE  LOG(SIGEd))  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  WAERE 
DS  = (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
K = SCALE  FACTOR 

AND  Z = NORMAL  DISTRIBUTION  QUANTILE 


DS  » 0.060(  0.167)  + 1.016C  0.173)>KZ 

REDUCED  CHI  SQUARE  = 0.598  CALCULATED  OVER  36  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.749 

REJECTED  OUTLIERS  FOLLOUCABSCDS  VALUE)  GREATER  THAN  2.607) 


DOC/TIME 

DS 

Z 

E SIGE 

T/SLJT 

RATE 

TEMP 

RATE 

35 

86.3 

5.75 

2.13 

99.726  31.669 

-67364. 

1 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
35  DATA  LEFT 


OUTPUT  REMAINING  DATA 


« 

DOC/TIME 

DS 

Z 

E 

SIGE 

1 

2.6 

0.82 

1.01 

25.052 

0.787 

2 

3. 1 

-0. 14 

0.39 

23.400 

0.385 

3 

9.6 

-0.18 

0.32 

23.273 

0.372 

4 

12.2 

-0.01 

0.63 

21.559 

0.425 

5 

14.0 

-0.49 

-0.17 

21.292 

0.295 

6 

16.6 

“0.28 

0. 17 

20.378 

0.345 

T/SUT  RATE  TEMP  RATE 

482964. 

473189. 

436394. 

418809. 

405647. 

389892. 


D7 


7 

18.3 

0.39 

0.80 

21.510 

0.573 

• 378025. 

8 

20.8 

0.92 

1.28 

17.773 

0.849 

361836. 

9 

22.6 

-0.01 

0.54 

18.678 

0.423 

349784. 

10 

25. 1 

-0.58 

-0.54 

23.031 

0.277 

333053. 

11 

26.9 

-0.58 

-0.46 

21.675 

0.277 

320969. 

12 

29.5 

-0.28 

0.24 

21.276 

8.345 

303777. 

13 

31.4 

-1.01 

-2.13 

21.422 

0.200 

293970. 

14 

34.2 

-0.70 

-1.01 

19.540 

0.252 

272644. 

15 

36.2 

-0.91 

-1.28 

21.962 

0.215 

259205. 

16 

39.1 

-0.33 

0.03 

20.576 

0.322 

240306. 

17 

41.2 

-0.55 

-0.39 

21.831 

0.282 

225799. 

18 

44.3 

-0.51 

-0.24 

21.784 

0.292 

205316. 

19 

46.6 

-0.79 

-1.14 

21.637 

0.236 

190178. 

20 

49.9 

0.53 

0.90 

21.565 

0.659 

163359. 

21 

52.3 

0.33 

0.71 

22.321 

0.545 

152528. 

22 

55.7 

-0.66 

-0.80 

21.514 

0.261 

129496. 

23 

58.2 

-0.93 

-1.46 

23.971 

0.213 

1 12843. 

24 

61.8 

-0.52 

-0.32 

21.605 

0.288 

89302. 

25 

64.3 

-0.45 

-0 . 03 

21.964 

0.305 

72444. 

26 

67.8 

-0.30 

0.10 

24.919 

0.341 

48830. 

27 

70.3 

-0.94 

-1.70 

21.775 

0.211 

32330. 

28 

73.6 

-0.62 

-0.63 

22 . 452 

0.269 

10259. 

29 

75.9 

-0.65 

-0.71 

23.012 

0.262 

-4300 . 

30 

78.7 

-0.07 

0.46 

21.613 

0.405 

-23159. 

31 

80.4 

-0.48 

-0.  10 

21.974 

0.297 

-34945. 

33 

83.5 

-0.67 

-0.90 

23.288 

0.253 

-48611. 

34 

85.7 

0.82 

1.14 

20.793 

0.739 

-56335. 

36 

86.3 

2. 17 

1.70 

43.292 

2.  160 

-67364. 

37 

86. 1 

1.91 

1.46 

33.304 

1.787 

-72754. 

PASS  NUMBER  3 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.983 
UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.463 


EXAMINE  LOG(SIGE(D)  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  LIHERE 
DS  = (AVERAGE  LOG  SIGE  - LOG  SIGE(I))^'K 
K = SCALE  FACTOR 

AND  2 = NORMAL  DISTRIBUTION  QUANTILE 

DS  » 0.000(  0.169)  + 0.699C  0,175)>«2 

REDUCED  CHI  SQUARE  = 0.100  CALCULATED  OVER  35  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.524 

REJECTED  OUTLIERS  FOLLOUCABSCDS  VALUE)  GREATER  THAN  2.598) 


«■ 

DOC/TIME 

DS 

Z 

E 

SIGE 

T/SUT 

RATE 

TEMP 

RATE 

36 

37 

86.3 

86.3 

3.33 

2.97 

2.12 

1.69 

43.292 
33 . 304 

2.  160 
1.787 

-67364. 

-67364. 

2 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 


D8 


33  DATA  LEFT 


OUTPUT  REMAINING  DATA 


* 

DOC/TIME 

DS 

Z 

E 

SIGE 

1 

2.6 

1.40 

1.12 

25.052 

0.787 

2 

3. 1 

0.04 

0.44 

23.400 

0.335 

3 

9.6 

-0.03 

3.36 

23.278 

0,372 

4 

12.2 

0.23 

0.59 

21.559 

0.425 

5 

14.0 

-0.47 

-0.  14 

21.292 

0.295 

6 

16.6 

-0.17 

0.21 

20.378 

0.345 

7 

18.3 

0.80 

0.83 

21.510 

0.573 

8 

20.8 

1.55 

1.45 

17.773 

0.S49 

9 

22.6 

0.22 

0.60 

18.673 

0.423 

10 

. 25. 1 

-0 . 59 

-0.52 

23.031 

0.277 

11 

26.9 

-0.59 

-0,44 

21.675 

0.277 

12 

29.5 

-0.  17 

0.29 

21.276 

0.345 

13 

31.4 

-1.21 

-2.12 

21.422 

0.200 

14 

34.2 

-0.77 

-1.00 

19.540 

0.252 

15 

36.2 

-1.07 

-1.27 

21.962 

0.215 

16 

39. 1 

-0.30 

0.07 

20.576 

0.322 

17 

41.2 

-0.56 

-0.36 

21.831 

0.232 

18 

44.3 

-0.49 

-0.21 

21.784 

8.292 

19 

46.6 

-0.90 

-1.12 

21.697 

0.236 

20 

43.9 

1.06 

1.60 

21.565 

0.659 

21 

52.3 

0.70 

0.78 

22.521 

0.545 

22 

55.7 

-0.76 

-0.78 

21.514 

0.261 

23 

58.2 

-1.09 

-1.45 

23.971 

0.213 

24 

61.8 

-0.52 

-0.29 

21.605 

8.2S3 

25 

64.3 

-0.41 

0.00 

21.964 

0.305 

26 

67.8 

-0.  19 

0.  14 

24.919 

0.341 

27 

70.3 

-1.11 

-1.69 

21.775 

0.211 

28 

73.6 

-0.65 

-0.60 

22.452 

0.269 

29 

75.9 

-0.70 

-0.69 

23.012 

0 . 252 

30 

78.7 

0.  14 

0.52 

21.619 

0.405 

31 

80.4 

-0.46 

-0.07 

21.974 

0.297 

33 

83.5 

-0.72 

-0.88 

23.283 

0.259 

34 

85.7 

1.41 

1.27 

20.793 

0.789 

PASS  NUMBER  4 


T/SUT  RATE  TEMP  RATE 

482964. 

473103. 

436394. 

418309. 

406647. 

3S3892. 

378825. 

36 1 836 . 

343784. 

333S5S . 

320969.  . 

303777. 

298970. 

272644. 

259205 . 

248035. 

225799. 

205316. 

190178. 

168359. 

152523. 

129496. 

112343. 

S9302. 

72444. 

48830. 

32330, 

10259. 

-4500. 

-23159,. 

-34345 . 

-486 11. 

-56835. 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.963 
UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.371 


EXAMINE  LOG(SIGE(I))  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  WHERE 
DS  *=  (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
K « SCALE  FACTOR 

AND  Z = NORMAL  DISTRIBUTION  QUANTILE 
DS  - 0.000C  0.174)  + 0.733C  0.181)>KZ 


D9 


REDUCED  CHI  SQUfiRE  « 0.056  CftLCULftTED  0^/ER  33  POINTS 

RESCfiLE  DS  VALUES  BY  FACTOR  OF  0.384 

REJECTED  OUTLIERS  FOLLOU(ABS (DS  VALUE)  GREATER  THAN  2.579) 

♦ DOC/TIME  DS  Z E SIGE  T/SUT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
33  DATA  LEFT 


OUTPUT  REMAINING  DATA 


♦ DOC/TIME 

DS 

Z 

E 

1 

2. 

6 

2. 

17 

1. 

,42 

25. 

052 

2 

3. 

1 

0. 

31 

0. 

,55 

23. 

403 

3 

9. 

6 

0. 

22 

0. 

,47 

23. 

278 

4 

12. 

2 

0. 

57 

0. 

,84 

21. 

559 

5 

14. 

B 

-0. 

38 

-0. 

,03 

21. 

292 

6 

16. 

6 

0. 

83 

0. 

,31 

20, 

378 

7 

18. 

3 

1. 

35 

1. 

,08 

21. 

510 

8 

20. 

8 

2. 

37 

2. 

,09 

17. 

773 

9 

22. 

6 

B. 

56 

0. 

,74 

18 . 

678 

10 

25. 

1 

-B. 

54 

-0. 

,47 

23. 

031 

11 

26. 

9 

-0. 

54 

-0. 

,39 

21. 

675 

12 

29. 

5 

0. 

03 

0. 

,39 

21. 

276 

13 

31. 

4 

-1. 

.39 

—2 . 

,09 

21. 

422 

14 

34. 

2 

-0. 

.79 

-a. 

.96 

19. 

549 

15 

36. 

2 

-1. 

,20 

-1 . 

.23 

21. 

962 

16 

39. 

1 

-0. 

, 15 

0. 

. 15 

20. 

576 

17 

41. 

2 

-0. 

,50 

-0, 

.31 

21. 

831 

18 

44. 

3 

-0. 

,41 

-0, 

. 15 

21. 

784 

19 

46. 

6 

-0. 

,96 

-1, 

.33 

21. 

697 

20 

49. 

9 

1. 

,71 

1, 

.23 

21. 

565 

21 

52. 

3 

1 . 

.22 

0, 

.96 

22. 

321 

22 

55. 

7 

-0. 

.70 

-0, 

.74 

21. 

514 

23 

58, 

2 

-1. 

.23 

-1  , 

.42 

23. 

,971 

24 

61. 

8 

-0, 

.44 

-0 

.23 

21. 

.605 

25 

64. 

,3 

-0, 

.29 

0 

.03 

21. 

.964 

26 

67. 

,8 

-0, 

.00 

0 

.23 

24. 

.919 

27 

70. 

,3 

-1, 

.25 

-1 

.66 

21. 

,775 

28 

73, 

,6 

-0, 

.62 

-0 

.55 

22. 

,452 

29 

75. 

,9 

-0- 

.69 

-9 

.64 

23. 

,012 

30 

78. 

,7 

0 

.45 

0 

. 54 

21. 

,619 

31 

80. 

,4 

-0 

.36 

0 

.00 

21. 

,974 

33 

83. 

.5 

-0 

.72 

-0 

,84 

23, 

.283 

34 

85. 

.7 

2 

. IS 

1 

.66 

20. 

.793 

PASS 

NUMBER 

5 

SIGE  . T/SUT.  RATE  TEMP 

0.787  432964. 

3.385  479109. 

0.372  435394. 

8.425  418809. 

0.295  435647. 

9.345  389892. 

0.573  378025. 

3.349  361336. 

0.423  349734. 

8.277  333058. 

0.277  320969. 

0.345  383777. 

0.200  293970. 

0.252  272644. 

0.215  259205. 

0.322  240306. 

0.282  225799. 

0.292  205316. 

0.236  190178.' 

0.659  168359. 

0.545  152523. 

0.261  129496. 

0.213  112843. 

8.283  89302. 

0.395  72444. 

0.341  48830. 

0.211  32339. 

0.269  10259. 

0.262  -4500. 

0.405  -23159. 

0.297  -34945. 

0.259  -48611. 

0.789  -56335. 


PRESENT  STATUS; -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.960 


RATE 


RATE 


DIO 


UNUEIGHTED  fi'vCRfiGE  OF  SIGMO  VALUES  IS  0.371 
EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 
OUTLIERS  ON  DE  STATISTIC 
FIT  OF  DE  TO  Z 

DE  - (E(I)-E  A''/ERAGE)/SIG  Ed) 

2 = NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 


RESCALE  SIGE  VALUES  BY  FACTOR  OF  1.754 
INPUT  SIGE  VALUES  NOU  RESCALED  BY  FACTOR  OF  1.754 


REJECTED  OUTLIERS  FOLLOUCABSCDE  VALUE) 


DOC/TIME 

DE 

Z 

E 

SIGE 

6 

16.6 

-2.61 

-1.23 

20.378 

9.605 

8 

20.3 

-2.81 

-1.42 

17.773 

1.489 

9 

22.3 

-4.42 

-1.66 

18.678 

0.742 

14 

34.9 

-5.47 

-2.09 

19.540 

0.442 

23 

58.6 

5.38 

2.09 

23.971 

0.374 

26 

67.3 

4.95 

1.66 

24.919 

0.593 

33 

83.8 

2.92 

1.42 

23.288 

0.454 

GREATER  THAN  2.579) 

T/SUT  RATE  TEMP  RATE 

389392. 

378025. 

378025. 

320969. 

19017'8. 

152523. 

48830. 


7 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
26  DATA  LEFT 

OUTPUT  REMA I N I NG  D ATA 


«> 

DOC/TIME 

DE 

2 

E 

SIGE 

1 

2.6 

2.24 

1.08 

25.052 

1.381 

2 

3.1 

2.  13 

0.84 

23.400 

0.675 

3 

9.6 

2.02 

0.74 

23.278 

0.653 

4 

12.2 

-0.54 

-0.23 

21.559 

0.746 

5 

14.0 

-1.29 

-0.84 

21.292 

0.518 

7 

18.6 

-0.45 

0.00 

21.510 

1.005 

10 

25.3 

2.20 

0.96 

23.031 

0.486 

11 

26.8 

-0.59 

-0.31 

21.675 

0.486 

12 

29.6 

-1 . 13 

-0.74 

21.276 

0.605 

13 

31.1 

-1.53 

-0.96 

21.422 

0.351 

15 

36.9 

0.01 

0.31 

21.962 

0.377 

16 

39.5 

-2.45 

-1.08 

20.576 

0.565 

17 

41.4 

-0.26 

0.23 

21.831 

0.495 

18 

44.2 

-0.34 

0.08 

21.784 

0.512 

19 

46,2 

-0.64 

-0.39 

21.697 

0.414 

20 

49. 1 

-0.34 

0.15 

21.565 

■1.156 

21 

52.2 

0.38 

0.55 

22.321 

0.956 

22 

55.3 

-0.97 

-0.64 

21.514 

0.458 

24 

61.6 

-0.70 

-0.47 

21.605 

0.505 

25 

64.9 

0.01 

0.39 

21.964 

0.535 

27 

70.2 

-0.50 

-0.  15 

21.775 

0.370 

T/SUT  RATE  TEMP  RATE 

482964. 

479109. 

436394. 

418809. 

406547. 

389892. 

378025. 

361836. 

349784. 

333053. 

320969. 

303777. 

290970. 

272644. 

259205. 

240006. 

225799. 

205316. 

190173. 

168359. 

152523. 


Dll 


28 

73.7 

1.04 

0.64 

22.452 

0.472 

129496. 

29 

75.2 

2.29 

1.23 

23.012 

0.460 

112843. 

30 

78.8 

-0.43 

-0.08 

21.613 

0.711 

83302. 

31 

80.3 

0.03 

0.47 

21.974 

0.521 

72444. 

34 

85.8 

-0.84 

-0.55 

20.793 

1.334 

48830 . 

PASS  NUMBER  6 


PRESENT  STATUS: -AVERAGE  WEIGHTED  E IN  KCAL/MOLE  IS  21.913 

UNWEIGHTED  AVERAGE  DF  SIGMA  VALUES  IS  3.646 

EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 

OUTLIERS  OH  DE  STATISTIC 

FIT  OF  DE  TO  Z 

DE  *=  (E(I)-E  AVERAGE) /SIG  Ed) 

Z •=  NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 


RESCALE  SIGE  VALUES  BY  FACTOR  OF  0.944 
INPUT  SIGE  VALUES  NOW  RESCALED  BY  FACTOR  OF  1.656 
REJECTED  OUTLIERS  FOLLOW(ABS(DE  VALUE)  GREATER  THAN  2.500) 


« 

DOC/TIME 

DE 

Z 

E 

SIGE 

T/SWT 

RATE 

lErp 

16 

39.5 

-2.50 

-2.00 

20.576 

0.533 

303777. 

29 

75.7 

2.54 

2.00 

23.012 

0.434 

129496. 

2 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
24  DATA  LEFT 


OUTPUT 

REMAINING  DATA 

- 

♦ DOC/TIME 

DE 

Z 

E 

SIGE 

T/SWT 

RATE  TEMP 

RATE 

1 

2.6 

2.41 

1.28 

25.052 

1.303 

482964. 

2 

3.1 

2.34 

1.09 

23.408 

0.633 

479109. 

3 

9.6 

2.22 

0.93 

23.278 

0.616 

436394. 

4 

12.2 

-0.50 

-0.34 

21.559 

0.704 

418S09. 

5 

14.0 

-1.27 

-1.28 

21.292 

0.483 

406647. 

7 

18.6 

-0.42 

-0.14 

21.510 

0.949 

389892. 

10 

25.3 

2.44 

1.55 

23.031 

0.459 

378025. 

' 

11 

26.8 

-0.51 

-0.44 

21.675 

0.459 

361836. 

12 

29.6 

-1.11 

-1.09 

21.276 

0.571 

3497S4. 

13 

31.1 

-1.47 

-1.55 

21.422 

0.331 

333053 . 

15 

36.9 

0.  15 

0.55 

21.962 

0 . 356. 

328969. 

17 

41.5 

-0. 17 

0.24 

21.831 

0.467 

383777. 

18 

44.4 

-0.26 

0. 14 

21.784 

0.434 

290970. 

19 

46,2 

-0.55 

-0.55 

21.697 

0.391 

272644. 

20 

49.2 

-0.32 

0.05 

21.565 

1.091 

259205. 

21 

52.1 

0.46 

0.67 

22.321 

0.902 

240006. 

D12 


22 

55.2 

-0.92 

-0.93 

21.514 

0.432 

225799. 

24 

61.3 

-0.64 

-0.67 

21.605 

0.477 

205316. 

25 

64.6 

0.11 

0.34 

21.964 

0.505 

190178. 

27 

70.9 

-0.39 

-0.05 

21.775 

0.349 

163359. 

28 

73.2 

1.22 

0.79 

22.452 

0.445 

152528. 

30 

78.7 

-0.43 

-0.24 

21.619 

0.671 

123496. 

31 

80.2 

0.13 

0.44 

21.974 

0.492 

1 12843. 

34 

85.8 

-0.86 

-0.79 

20.793 

1.307 

89302. 

PASS  NUMBER  7 


PRESENT  STATUS: -AVERAGE  WEIGHTED  E IN  KCAL/MOLE  IS  21.898 

UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.S20 

EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 

OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  Z 

DE  = (E(I)-E  AVERAGE)/SIG  Ed) 

Z *=  NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 


RESCALE  SIGE  VALUES  BY  FACTOR  OF  0.850 
INPUT  SIGE  VALUES  NOW  RESCALED  BY  FACTOR  OF  1.407 


REJECTED  OUTLIERS  FOLLOUCABSCDE  VALUE) 


» 

DOC/TIME 

DE 

Z 

E 

SIGE 

1 

2.6 

2.85 

1.50 

25.052 

1.107 

2 

3.2 

2.77 

1.24 

23.400 

0.542 

3 

9.6 

2.64 

1.04 

23.278 

0.523 

10 

25.4 

2.91 

1.96 

23.031 

0.390 

GREATER  THAN  2.472) 

T/SUT  RATE  TEMP  RATE 

482964. 

482964. 

482964.. 

418809. 


4 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
20  DATA  LEFT 


OUTPUT  REMAINING  DATA 


* 

DOC/TIME 

DE 

Z 

E 

SIGE 

4 

12.2 

-0.57 

-0.37 

21.559 

0.598 

5 

14.0 

-1.46 

-1.59 

21.292 

0.415 

7 

19.0 

-0.43 

-0.  16 

21.510 

0.806 

11 

26.4 

-0.57 

-0.4S 

21.675 

0.390 

12 

29.6 

-1.28 

-1.24 

21.276 

0.435 

13 

31.6 

-1.69 

-1.96 

21.422 

0.231 

15 

36.3 

0.21 

0.60 

21.962 

0.302 

17 

41.8 

-0.  17 

0.26 

21.831 

0.397 

18 

44.6 

-0.28 

0.16 

21.784 

0.41 1 

19 

46.1 

-0.61 

-0.60 

21.697 

0.332 

20 

49.9 

-0.,i6 

0.05 

21.555 

0.927 

T/SWT  RATE  TEMP  RATE 

482964. 

479109. 

436394. 

418809. 

406647. 

389892. 

378025. 

361836. 

349784. 

333053. 

320969. 
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21 

52.5 

0.55 

0.73 

22.321 

0.767 

303777. 

22 

55.4 

-1.05 

-1.04 

21.514 

0.367 

290970. 

24 

61.2 

-0.72 

-0.73 

21.605 

0.405 

272644. 

25 

64.2 

0.  15 

0.37 

21.964 

0 . 429 

259205. 

27 

70. 1 

-0.41 

-0.05 

21.775 

0.297 

240006. 

28 

73.2 

1.46 

0.97 

22.452 

0.378 

225799. 

30 

78.3 

-0.49 

-0.26 

21.619 

0.570 

205316. 

31 

80.6 

0.  18 

0.43 

21.974 

0.418 

190178. 

34 

85.9 

-1.00 

-0.87 

20.793 

1.110 

168359. 

PASS  NUMBER  8 


PRESENT  STATUS: -AVERAGE  LJEIGHTED  E IN  KCAL/MOLE  IS  21.723 
UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.584 

E>^MINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 
OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  2 

DE  = (E(I)-E  AVERAGE)/SIG  Ed) 

Z «=  NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 

RESCALE  SIGE  VALUES  BY  FACTOR  OF  0.661 

INPUT  SIGE  VALUES  NO'J  RESCALED  SY  FACTOR  OF  0.S33 


REJECTED  OUTLIERS  FOLLOUCABSCDE  VALUE)  GREATER  THAN  2.409) 


<> 

DOC/TIME 

DE 

Z 

E SIGE 

T/SUT 

RATE 

TEMP 

28 

73.2 

2.91 

1.88 

22.452  0.250 

225799. 

1 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
19  DATA  LEFT 


OUTPUT  REMAINING  DATA 


« 

DOC/TIME 

DE 

Z 

E 

SIGE 

4 

12.2 

-0.42 

-0.45 

21.559 

0.395 

5 

14.0 

-1.57 

-1.41 

21.292 

0.274 

7 

19.0 

-0.40 

-0.31 

21.510 

0.533 

11 

26.4 

-0.19 

0.06 

21.675 

8.253 

12 

29.6 

-1.39 

-1.13 

21.276 

0.321 

13 

31.6 

-1.62 

-1.88 

21.422 

0.186 

15 

36.3 

1.19 

1.41 

21.962 

0.200 

17 

41.8 

0.41 

0.59 

21.831 

0.262 

18 

44.6 

0.22 

0.31 

21.784 

0.272 

19 

46. 1 

-0.  12 

0.  19 

21.697 

0.220 

20 

49.9 

-0.26 

-0.06 

21.565 

0.613 

21 

52.5 

1.18 

1.13 

22.321 

0.507 

T/SUT  RATE  TEMP  RATE 

482964. 

479109. 

436394. 

413809. 

406647. 

389392. 

378025. 

361836. 

349784. 

333358. 

320969. 

303777. 
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22 

55.4 

-0.86 

-0.74 

21.514 

0.243 

290970. 

24 

61.2 

-0.44 

-0.59 

2 1 . 605 

0.268 

272644. 

25 

64.2 

0.85 

0.74 

21.964 

0.284 

253265. 

27 

70. 1 

0.26 

0.45 

21.775 

0. 196 

240606. 

30 

78.2 

-0.28 

-0.  19 

21.619 

0.377 

225799. 

31 

80.3 

0.91 

0.92 

21.974 

0.276 

205316. 

34 

85.6 

-1.27 

-0.92 

20.793 

0.734 

190178. 

PASS  NUMBER  9 


PRESENT  STATUS: -AVERAGE  LEIGHTED  E IN  KCAL/MCLE  IS  21.676 

UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.338 

EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 

OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  2 

DE  = (E(I)-E  AVERAGE) /SIG  E(I) 

2 “ NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 

RESCALE  SIGE  VALUES  BY  FACTOR  OF  0.925 

INPUT  SIGE  VALUES  NOU  RESCALED  BY  FACTOR  OF  0.661 

REJECTED  OUTLIERS  FCLLOUCABSCDE  VALUE)  GREATER  THAN  2.391) 

♦ DOC/TIME  ■ DE  Z E SIGE  T/SUT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
19  DATA  LEFT 


OUTPUT  REMAINING  DATA 


« 

DOC/TIME 

DE 

Z 

E 

4 

12.2 

-0.32 

-0.40 

21.559 

5 

14.0 

-1.51 

-1.86 

21.292 

7 

19.0 

-0.34 

-0.55 

21.510 

11 

26.4 

-0.01 

0.  13 

21.675 

12 

29.6 

-1.35 

-1.10 

21.276 

13 

31.6 

-1.48 

-1.38 

21.422 

15 

36.3 

1.54 

1.86 

21.962 

17 

41.8 

0.64 

0.70 

21.331 

18 

44.6 

0.43 

0.40 

21.784 

19 

46. 1 

0.  10 

0.26 

21.697 

20 

49.9 

-0.20 

-0.  13 

21.565 

21 

52.5 

1.37 

1.38 

22.321 

22 

55.4 

-0.72 

-0.70 

21.514 

24 

61.2 

-0.29 

-0.26 

21.605 

25 

64.2 

1.09 

0.88 

21.964 

27 

70. 1 

0.54 

0.55 

21.775 

30 

78.2 

-0.16 

-0.60 

21.619 

SIGE  T/SUT  RATE  TEMP 

0.366  482964. 

0.254  479103. 

0.493  436394. 

0.233  ^18'809. 

0.297  406647. 

0.172  389892. 

0.185  378025. 

0.243  361836. 

0.251  349784. 

0.203  333053. 

0.567  320969. 

0.469  303777. 

0.225  290370. 

0.248  272644. 

0.263  259205. 

0.182  240605. 

0.349  225799. 


RATE 


RATE 
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31  80.3  1.16  1.10  21.974  0.256  205316. 

34  85.6  -1.30  -0.83  20.793  0.679  190178. 

UEIGHTED  MEFIN  E IS  21.676  + OR  - 0.059 

REDUCED  CHISQ  FOR  E CRLCULftTICN  IS  0.921  (SHOULD  BE  1.) 

UNUEIGHTED  MEP.N  OF  SIGMPS  IS  0.313 
CftLCULfiTED  OVER  18.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED.  TRUE  UEIGHTED  MEAN  LIES  U I THIN  RANGE  21.561  TO  21.792 
FOR  95?i  CONFIDENCE  LEVEL 

UNUEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
OF  ITS  SIGMA  ARE  21.639  AND  0.075 
THIS  GIVES  A CONFIDENCE  RANGE  OF  21.492  TO  21.786 
.CHI-SQUARE  FOR  UNUEIGHTED  E IS  0.94 

19  DATA  URITTEN  ON  FILE  = 8 = 


DE  = -0.063+  1.169>K2  + 0.009>f:Z  + -0.090>xZ  >K>k3 

REDUCED  CHI  SQUARE  IS  0.016  CALCULATED  OVER  19  POINTS 


3 CURVES  GENERATED  FOR  DE/Z  PLOTS 
Z IS  THE  HORIZONTAL  AXIS 

DE  IS  THE  FIRST  CURVE  SECOND  CUR'>7E  IS  LINEAR  FIT  OF  DE  TO  Z 
THIRD  CURVE  IS  POLYNOMIAL  FIT  OF  DE  TO  Z 


0.17486E+01  - 
+ 

^ + 
+ 

+ 

+ 

+ 

+ 

+ 

0.10215E+01  - 
+ 
+ 
+ 
+ 

+ 

+ 

+ 

+ 

0.38228E+00  - 
+ 
+ 
+ 
+ 

+ 

+ 


B 


A 


A 

A C 
B 
C 

B 

C 

A 

C 6 
A 

A B 
C ' 

B 

B 

B A 
A 
B 
A 
A 
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u <i 


+ 

+ 

-0.41691E+00  - 
+ 
+ 

■ + 
+ 


0 

A m 
B 

c 

B 

B C 


+ 

+ 

+ 

+ 

-0.11361E+0!  - 
+ 
+ 
+ 
+ 
-A 
+ 
+C 
+ 


+ 


-0.18553E+01  -B 

0.1861E+010. 1116E+010.3721E+000.3721E+000. 1116E+010. 1861E+01 


A - DE  V.  Z 

B - LINEftR  FIT  OF  DE  TO  Z 
C ■ POLVHOMIfiL  FIT  OF  DE  TO  Z 
JOB  COMPLETED 
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The  saved  file  from  the  previous  example 


NBS  706 

IN  50;i 

02  1/12/78 

NEU  FURNACE 

PKESS=800 

21.676  0 

.059  21. 

639  0.075 

19 

4 

21.56 

0.37 

12.25 

482964.00 

5 

21.29 

0.25 

14.01 

479109.00 

7 

21.51 

0.49 

18.96 

436394.00 

11 

21.67 

0.24 

26.36 

418309.00 

12 

21.28 

0.30 

29.64 

406647.00 

13 

21.42 

0. 17 

31.56 

389892.00 

15 

21.96 

0.  19 

36.34 

378025.00 

17 

21.83 

0.24 

41.78 

361836.00 

18 

21.78 

0.25 

44.59 

349784.00 

19 

21.70 

0.20 

46.10  * 

333053.00 

20 

21.56 

0.57 

49.92 

320969.00 

21 

22.32 

0.47 

52.51 

303777.00 

22 

21.51 

0.22 

55.43 

290973.00 

24 

21.60 

0.25 

61.19 

272644.00 

25 

21.96 

0.26 

64.21 

259205.00 

27 

21.77 

0. 18 

70.  10 

240006.03 

30 

- 21.62 

0.35 

78 . 23 

225799.00 

31 

21.97 

0.26 

80.31 

205316.00 

34 

20.79 

0.68 

85.59 

190178.00 
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An  example  where  all  rejections  made  were  based  on  log  . Input 
values  were  rescaled. 


TITLE  OF  INPUT  FILE  IS  : 

NBS  706  IN  50?i  02  1/24/78  RUN  3 
P -800  MM  HG 


)^o(oK5^ok)Moic^oK>^:>M<>^c>k5K>^c>|cK>K>MoK>^oMo^oK>^o^oK>^o^ofcioio♦oMoMoK:^o^^ 


CHANCE  OF 
IS  15.06 

URONGLY 

REJECTING 

RANDOMLY 

PLACED  EXTREMUM 

PUT  PROCESSED  DATA 

ON  FILE 

8 

NUMBER 

E 

SIG  E 

D.O.C. 

SUT 

1 

21.49 

0.32 

5.08 

466217.00 

2 

20. 14 

0.44 

7.43 

450583.00 

3 

20.93 

0.31 

9. 19 

.438865.00 

4 

21.80 

0.78 

12.39 

417580.00 

5 

20.74 

0.64 

14.47 

403770.00 

6 

21.49 

0.64 

17.28 

385060.00 

7 

19.24 

0.45 

19.29 

371724.00 

8 

20.42 

0.47 

22.04 

353466.00 

9 

20.50 

0.43 

24.02 

340260.00 

10 

20.04 

0.55 

26.74 

322175.00 

11 

20.72 

0.36 

28.75 

308846.00 

12 

20.96 

0.30 

31 .53 

290307.00 

13 

19.53 

0.33 

33.61 

276491.00 

14 

21. -28 

0.44 

36.51 

257211.00 

15 

22.02 

0.31 

38.67 

242339.00 

16 

20.85 

0.34 

41.75 

222349.00 

17 

22.43 

0.30 

44.06 

207012.00 

18 

19.41 

0.42 

47.33 

185242.00 

19 

26.21 

2.48 

50.44 

164542.00 

20 

18.96 

1.82 

53.22 

146055.00 

21 

23.07 

0.44 

55.73 

129083.00 

22 

21.81 

0.55 

59.39 

105082.00 

23 

21.81 

0.42 

62.06 

87318.12 

24 

22.94 

0.38 

65.79 

62529.70 

25 

21.99 

0.28 

68.48 

44597.30 

26 

22.38 

0.35 

72.14 

20277. 10 

27 

21.87 

0.39 

74.69 

3320.86 

28 

21.80 

0.66 

78.01 

-18745.50 

29 

21.98 

0.50 

80.19 

-33284.80 

30 

21.62 

0.46 

82.77 

-50393.60 

31 

21.75 

0.31 

84.33 

-61126.20 

32 

17.53 

0.99 

86.34 

-74163.00 

33 

16.27 

5.32 

87.61 

-82585. 12 

34 

40.66 

27.15 

87.72 

-83367.88 

PASS  NUMBER  1 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.316 
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UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  1.480 


EXAMINE  LOGCSIGECm  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  UHERE 
DS  (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
K = SCALE  FACTOR 

AND  Z = NORMAL  DISTRIBUTION  QUANTILE 


DS  - e.000(  0.171)  + 0.765<  0.178)>KZ 

REDUCED  CHI  SQUARE  = 0.317  CALCULATED  OVER  34  POINTS 


RESCALE  DS  VALUES  BY  FACTOR  OF  0,765 

REJECTED  OUTLIERS  FOLLOUCABSCDS  VALUE)  GREATER  THAN  2.589) 


• 

DOC/TIME 

DS 

Z 

E 

SIGE 

T/surr 

RATE 

33 

87.6 

2.91 

1.68 

16.269 

5.323 

-82585.  • 

34 

87.6 

5.04 

2.11 

40 . 664 

27.149 

-82585. 

2 

DATA  DISCARDED 

AS  OUTLIERS 

IN  TAILS 

OF  DISTRIBUTION 

32  DATA  LEFT 


OUTPUT  REMAINING  DATA 


« 

DOC/TIME 

DS 

Z 

E 

SIGE 

1 

5.1  -0.75 

-0.86 

21.491 

0.323 

2 

7.4  -0.34 

0.04 

20. 140 

0.444 

3 

9.2  -0.79 

-0.98 

20.900 

0.313 

4 

12.4 

0.40 

0.98 

21.805 

0.780 

5 

14.5 

0.13 

0.67 

20.739 

0.636 

6 

17.3 

0.  13 

0.76 

21.489 

0 . 636 

7 

19.3  -0.30 

0.  13 

19.243 

0.455 

8 

22.0  -0.26 

0.33 

20.425 

0.470 

9 

24.0  -0.38 

-0.11 

20.503 

0 . 428 

10 

26.7  -0.06 

0.49 

20.043 

0.547 

11 

28.8  -0.61 

-0.49 

20.720 

0.359 

12 

31.5  -0.85 

-1.43 

20.958 

0 . 330 

13 

33.6  -0.74 

-0.76 

19.532 

0 . 326 

14 

36.5  -0.33 

0.11 

21.280 

0.445 

15 

38.7  -0.80 

-1 . 10 

22.023 

0.312 

16 

41.8  -0.67 

-0.67 

20.854 

0.343 

17 

44.1  -0.87 

-1.68 

22.429 

0.295 

18 

47.3  -0.42 

-0.26 

19.410 

0.418 

19 

50.4 

1.91 

1.43 

26.212 

2.478 

20 

53.2 

1.51 

1.25 

18.959 

1.823 

21 

55.8  -0.35 

-0.04 

23.068 

0.438 

22 

59.4  -0.05 

0.53 

21.809 

0.553 

23 

62.1  -0.41 

-0.  13 

21.809 

0.420 

24 

65.8  -0.55 

-0.41 

22.943 

0.376 

T/SUT  RATE  TErP  RATE 

466217. 

450583. 

438865. 

«il75S0.- 

403770. 

385060. 

371724. 

353456 . 

340260. 

322175. 

308346. 

290307. 

276491. 

2572 11. 

242839. 

222349. 

207012. 

135242. 

164542. 

145055. 

129088. 

105032. 

87318. 

62530. 
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25 

68.5 

-0.95 

-2.11 

21.992 

0.277 

44597 

26 

72. 1 

-0.63 

-0.58 

22.385 

0.354 

20277 

27 

74.7 

-0 . 49 

-0.33 

21.869 

0.395 

3321 

28 

78.0 

0.17 

0.86 

21.800 

0 . 656 

-18746 

29 

80.2 

-0.  19 

0.41 

21.977 

0.495 

-33285 

30 

82.8 

-0.28 

0.26 

21.613 

0.464 

-50394 

31 

84.4 

-0.82 

-1.25 

21.746 

0.306 

-61126 

32 

86.3 

0.71 

1.10 

17.533 

0.987 

-74163 

PASS  NUMBER  2 


PRESENT  STATUS :-AWRAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.317 
UNUEIGHTED  AVERAGE  GF  SIGMA  VALUES  IS  0.558 


EXAMINE  LOG(SIGEd))  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  UHERE 
DS  = (AVERAGE  LOG  SIGE  - LOG  SIGE(I))^'i< 

K «=  SCALE  FACTOR 

AND  2 = NORMAL  DISTRIBUTION  QUANTILE 


DS  * 0.000C  0.177)  + 0.595C  0.!84)=<<Z 

REDUCED  CHI  SQUARE  = 0.085  CALCULATED  OVER  32  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  ’ 0.455 

REJECTED  OUTLIERS  FOLLOU(ABS(DS  VALUE)  GREATER  THAN  2.569) 


♦ DOC/TIME 

DS 

Z 

E 

SIGE 

T/surr 

RATE 

TEMP 

19  50.4 

20  53.4 

3.63 

2.95 

2.08 

1.65 

26.212 

18.959 

2.478 

1.823 

164542. 

164542. 

• 

2 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
30  DATA  LEFT 


OUTPUT  REMAINING  DATA 


« 

DOC/TIME 

DS 

Z 

E 

SIGE 

T/SUT 

RATE 

TEMP 

1 

5.1 

-0.85 

-0.82 

21.491 

0.323 

466217. 

2 

7.4 

-0. 15 

0.12 

20. 140 

0.444 

450583. 

3 

9.2 

-0.91 

-0.94 

20.900 

0.313 

433865. 

- 

4 

12.4 

1.09 

1.22 

21.805 

0.780 

417580. 

5 

14.5 

0.64 

0.82 

20.739 

0.636 

403770. 

6 

17.3 

0.64 

0.24 

21.439 

0.636 

385060 . 

7 

19.3 

-0.09 

0.27 

19.243 

0.455 

371724. 

8 

22.0 

-9.02 

0.44 

20.425 

0.470 

353466. 

9 

24.0 

-0.23 

-0.04 

20.503 

0.423 

340260. 

i0 

26.7 

0.31 

0.62 

20.043 

0.547 

322175. 

il 

28.8 

-0.61 

-0.44 

20.720 

0.359 

308846. 

RATE 


RATE 
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12 

31.5 

-1.01 

-1.40 

13 

33.6 

-0.83 

-0.72 

14 

36.5 

-0.  14 

0. 19 

15 

38.7 

-0.92 

-1.07 

16 

41.8 

-0.71 

-0.62 

17 

44.1 

-1.05 

-1.65 

18 

47.3 

-0.28 

-0.  19 

21 

55.4 

-0.  18 

0.04 

22 

59.2 

0.33 

0.72 

23 

62.8 

-0.27 

-0.  12 

24 

65.4 

-0.51 

-0.36 

25 

68. 1 

-1.18 

-2.03 

26 

72.8 

-0.64 

-0 . 53 

27 

74.5 

-0.40 

-0.27 

28 

78, 1 

0.71 

1.07 

29 

80.7 

0.09 

0.53 

30 

82.0 

-0.05 

0 . 35 

31 

84.2 

-0.96 

-1.22 

32 

86.8 

1.61 

1.40 

PASS 

NUMBER 

3 

20.958 

0.300 

290307. 

19.532 

0.326 

276491. 

21.230 

0.445 

2572 1 1 . 

22.023 

0.312 

242839. 

20.854 

0.343 

222349. 

22.429 

0.295 

207012. 

19.410 

0.418 

185242. 

23.068 

0.438 

154542. 

21.809 

0.553 

146055. 

21.809 

0.420 

129088. 

22.943 

0.376 

105082. 

21.992 

0.277 

87318. 

22.385 

0.354 

62530. 

21.863 

0.595 

44597 . 

21.800 

0 . 656 

20277. 

21.977 

0.495 

3321. 

21.613 

0.464 

-18746. 

21.746 

0.306 

-33285. 

17.533 

0.987 

-50394. 

PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.316 
UNWEIGHTED  AVERAGE  OF  SIGflA  VALUES  IS  0.452 


EXAMINE  LOG(SIGECD)  DISTRIBUTION  TO  DISCARD 
-OUTLIERS  ON  BASIS  OF  DS  STATISTIC.  WHERE 
DS  *=  (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
^ K » SCALE  FACTOR 

AND  Z = NORMAL  DISTRIBUTION  QUANTILE 

DS  = -0.000(  0.  183)  + 0.677C  0.190)>f<Z 

REDUCED  CHI  SQUARE  = 0.027  CALCULATED  OVER  30  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.308 

REJECTED  OUTLIERS  FClLOWCABSCDS  VALUE)  GREATER  THAN  2.547) 


* 

DOC/TIME 

DS 

Z 

E SIGE 

T/SUIT 

RATE 

TEMP 

RATE 

32 

86.8 

2.70 

2.05 

17.533  0.987 

-50394. 

1 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
29  DATA  LEFT 


OUTPUT  REMAINING  DATA 


* 

DOC/TIME  DS  Z 

E 

SIGE 

T/SWT 

RATE 

TEMP 

RATE 

1 

5.1  -0.93  -0.77 

21.491 

0.323 

466217. 

2 

7.4  0.11  0.21 

20. 140 

0.444 

450583. 

3 

9.2  -1.03  -0.89 

20.900 

0.313 

433365. 
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4 

12.4 

1.93 

1.62 

21.805 

0.780  . 

417580. 

5 

14.5 

1.27 

1.02 

20.739 

0 . 636 

403770. 

6 

17.3 

1.27 

1.13 

21.439 

0.636 

335660. 

7 

19.3 

0.  19 

0.38 

19.243 

0.455 

371724. 

a 

22.0 

0.29 

0.57 

20.425 

0.470 

353466. 

9 

24.0 

-0.01 

0.64 

20.503 

0.428 

340260. 

10 

26.7 

0.78 

0.77 

20.043 

0.547 

322175. 

11 

28.8 

-0.58 

-0 . 38 

20.720 

0.359 

303346. 

12 

31.5 

-1.17 

-1.36 

20.958 

0.300 

293337. 

13 

33.6 

-0.90 

-3.67 

19.532 

0.326 

276491. 

14 

36.5 

0.11 

0.29 

21.280 

0 . 445 

257211 . 

15 

38.7 

-1.04 

-1.02 

22.023 

0.312 

242839. 

16 

41.8 

-0.73 

-3.57 

20.854 

0.343 

222349. 

17 

44. 1 

-1.22 

-1.62 

22.429 

0.295 

207012. 

18 

47.3 

-0.09 

-0.12 

19.410 

0.418 

185242. 

21 

55.4 

0.06 

0.12 

23.068 

0.433 

164542. 

22 

59.2 

0.82 

0.89 

21.839 

0.553 

145055. 

23 

62.8 

-0.07 

-0.04 

21.839 

0.420 

1.29388. 

24 

65.4 

-0.43 

-0.29 

22.943 

0.376 

105082. 

25 

68. 1 

-1.42 

-2.05 

21.992 

0.277 

87318. 

26 

72.8 

-0.63 

-0.47 

22 . 335 

0.354 

62530 . 

27 

74.5 

-0.27 

-0.21 

21.869 

0.395 

4-^1597. 

28 

78. 1 

1.37 

1.36 

21.890 

0.656 

20277. 

29 

80.7 

0.46 

0.67 

21.977 

0.495 

3321. 

30 

82.0 

- 0.25 

0.47 

21.618 

0.464 

-18746. 

31 

84.2 

-1.16 

-1.18 

21.746 

0.306 

-33285. 

PASS  NUMBER  4 


PRESENT  STATUS : -AV'ERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  21.337 
UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.433  ‘ 


EXAMINE  LOG(SIGECD)  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  WHERE 
DS  = (AVERAGE  LOG  SIGE  - LOG  SIGE(  !))/.< 

K « SCALE  FACTOR 

AND  Z = NORMAL  DISTRIBUTION  QUANTILE 


DS  » 0.000C  0.186)  + 0.886<  0.194)>KZ 

REDUCED  CHI  SQUARE  = 0.031  CALCULATED  0‘v'ER  29  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.273 

REJECTED  OUTLIERS  FOLLOUCABS (DS  VALUE)  GREATER  THAN  2.536) 

«>  DOC/TIME  DS  Z E SIGE  T/SWT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUITIERS  IN  TAILS  OF  DISTRIBUTION 
29  DATA  LEFT 


RATE 
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OUTPUT  REMAINING  DATA 


* 

DOC/TIME 

DS 

2 

E 

SIGE 

1 

5.1 

-0.94 

-0.75 

21.491 

0.323 

2 

7.4 

0.23 

0.26 

20. 140 

0.444 

3 

9.2 

-1.05 

-0.87 

20.900 

0.313 

4 

12.4 

2.29 

2.04 

21.805 

0.780 

5 

14.5 

1.54 

1.16 

20 . 739 

0.635 

6 

17.3 

1.54 

1.35 

21.489 

0 . 636 

7 

19.3 

0.31 

0.44 

19.243 

0.455 

8 

22.0 

0.43 

0.64 

20 . 425 

0.470 

9 

24.0 

0.09 

0.09 

20.503 

0.428 

10 

26.7 

0.99 

0.87 

20 . 043 

0.547 

11 

28.8 

-0.55 

-0.35 

20.729 

0 . 359 

12 

31.5 

-1.21 

-1.35 

20.958 

0.300 

13 

33.6 

-0.91 

-0.64 

19.532 

0.326. 

14 

36.5 

0.23 

0.35 

21.280 

0.445 

15 

38.7 

-1.07 

-1.00 

22.023 

0.312 

16 

41.8 

-0.72 

-0,54 

20.854 

0.343 

17 

44. 1 

-1.27 

-1.60 

22.429 

0.295 

18 

47.3 

0.00 

-0.03 

19.410 

0.418 

21 

55.4 

0.  18 

0.  17 

23.068 

0.438 

22 

59.2 

1.03 

1.00 

21.809 

0.553 

23 

62.8 

0.G2 

-0 . 00 

21.309 

0.423 

24 

65.4 

-0.38 

-0.26 

22.943 

0.376 

25 

68. 1 

-1.50 

-2.04 

21.932 

0.277 

26 

72.8 

-0.60 

-0.44 

22.385 

0.354 

27 

74.5 

-0.20 

-0.  17 

21.869 

0.395 

28 

^ 78.1 

1.65 

1.60 

21.800 

3 . 656 

29 

80.7 

0.62 

0.75 

21.977 

0.495 

30 

82.0 

0.39 

0.54 

21.618 

0.464 

31 

84.2 

-1.14 

-1.16 

21.746 

0 . 300 

PASS  NUMBER  5 


T/SUT  RATE  TEMP  RATE 

466217. 

450583. 

438865. 

417580. 

493770 . 

335060. 

371724. 

353466 . 

340260 . 

322175. 

308846. 

280307. 

276431. 

257211. 

242839. 

222349. 

2070 12. 

185242. 

164542. 

146055. 

123033. 

105082. 

87318. 

62530. 

44597 . 

20277. 

3321 . 

-18746. 

-33285. 


PRESENT  STATUS: -AVERAGE  WEIGHTED  E IN  KCAL/MOLE  IS  21.337 
UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.433 

EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 
OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  Z 

DE  = (E(I)-E  AVERAGE)-/SIG  E(I) 

Z » NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 


RESCALE  SIGE  VALUES  BY  FACTOR  OF  2.365 
INPUT  SIGE  values  NOW  RESCALED  BY  FACTOR  OF  2.365 
REJECTED  OUTLIERS  FOLLOU(ABS(DE  VALUE)  GREATER  THAN  2.536) 
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• DOC/TIME  DE  Z E SIGE  T/SUT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
29  DATA  LEFT 


OUTPUT  REMAINING  DATA 

♦ DOC/TIME  DE  Z E SIGE  T/SUT  RATE  TEMP 


1 

5.1 

0.20 

-0.00 

21.491 

8.764 

466217. 

2 

7.4 

-1.14 

-1.16 

20. 140 

1.850 

450533. 

3 

9.2 

-0.59 

-0.44 

20.900 

0.740- 

438865 . 

4 

12.4 

0.25 

0.09 

21.835 

1.844 

417589. 

5 

14.5 

-0.40 

-0.26 

20.739 

1.594 

433770. 

6 

17.3 

0.  10 

-0.09 

21.489 

1.504 

3B50S0. 

7 

19.3 

-1.95 

-1.35 

19.243 

1.076 

371724. 

8 

22.0 

-0.82 

-0.75 

20.425 

1.111 

353466. 

9 

24.0 

-0.82 

-0.87 

20.503 

1.012 

348260. 

10 

26.7 

-1.00 

-1.00 

20 . 043 

1.293 

322175. 

11 

28.8 

-0.73 

-0.64 

20.723 

0.S49 

308846. 

12 

31.5 

-0.53 

-0 . 35 

20.953 

0.709 

298307. 

13 

33.6 

-2.34 

-2.64 

19.532 

0.771 

276491. 

14 

36.5 

-0.05 

-0.  17 

21.280 

1.052 

257211. 

15 

38.7 

0.93 

0.87 

22.023 

0.738 

242839. 

16 

41.8 

-0.60 

-0.54 

20.854 

0.311 

222349. 

17 

44.1 

1.57 

1.35 

22 . 429 

0.693 

207012. 

18 

47.3 

-1.95 

-1.60 

19.413 

0.988 

185242. 

21 

55.4 

1.67 

1.60 

23.068 

1.036 

164542. 

22 

59.2 

0.35 

0.35 

21.809 

1.308 

145855. 

23 

62.8 

0.48 

0.44 

21.809 

0.993 

129038. 

24 

65.4 

1.81 

2.04 

22.943 

0.389 

10,5382. 

25 

68.  1 

1.00 

1.03 

21.992 

0.655 

87318. 

26 

72.8 

1.25 

1.16 

22.385 

0.837 

62530. 

27 

74.5 

0.57 

0.75 

21.869 

0.934 

44597. 

28 

78. 1 

0.30 

0.26 

21.800 

1.551 

20277. 

29 

80.7 

0.55 

0.54 

21.977 

1.170 

3321. 

30 

82.0 

0.26 

0.  17 

21.613 

1.097 

-18^46. 

31 

84.2 

0.57 

0.64 

21.746 

0.724 

-33285. 

UEIGHTED  MEAN  E IS  21.337  + OR  - 0.172 

REDUCED  CHISQ  FOR  E CALCULATION  IS  1.140  (SHOULD  BE  1.) 

UNWEIGHTED  MEAN  OF  SIGMAS  IS  1.024 
CALCULATED  OVER  23.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED,  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  21.000  TO  21.674, 
FOR  95;^  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
OF  ITS  SIGMA  ARE  21.276  AND  0.185 
THIS  GIVES  A CONFIDENCE  RANGE  OF  20.913  TO  21.639 
CHI-SQUARE  FOR  UNWEIGHTED  E IS  1.14 


RATE 


RATE 
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IM  OJ 


29  DATA  URITTEN  ON  FILE 


8 


DE  = 0.030+  1.174>kZ  + -0.061>i:Z  >K>!c2  + -0.030>«Z  >tcx<3 

REDUCED  CHI  SQUARE  IS  0.005  CALCULATED  OVER  23  POINTS 

CURVES  GENERATED  FOR  DE/Z  PLOTS 
IS  THE  HORIZONTAL  AXIS 
DE  IS  THE  FIRST  CL!R^/E  SECOND  CURVE  IS  LI^!EAR  FIT  OF  DE  TO  Z 
THIRD  CURVE  IS  POLYNOMIAL  FIT  OF  DE  TO  Z 


0.22037E+01  - 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

0.1290SE+01  - 
+ 
+ 
+ 
+ 

+ 

+ 

+ 

+ 

0.37734E+00  - 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

-0.53509E+00  - 

+ ' 
+ 
+ 


+ 

+ 

+ 

+ 

-0.14480E+01  - 

+ 

+ 

+ 


B 


A 

B 

C 

A 

B 

C 

CA 

A 

C 

CB 

CB 

C AAA 
CA 
A 

AAA 
A CB 
A CB 
CB 
ACB 
CB 
CB 
CA 
B 
BA 
A A 
A 

A A 
B 

AB 


B 

A 


A 6 


B 

B 

C 


+ 

+ 

+ 

+ 


B 

A A 


-0.23609E+01 


+B 

-A 


+ 


0.2041E+010. 1224E+010.4082E+060.4081E+000. 1224E+010.2041E+01 


A » DE  V. »Z 

B “ LINEAR  FIT  OF  DE  TO  Z 
C • POLYNOMIAL  FIT  OF  DE  TO  Z 
JOB  COMPLETED 
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3>  n 


An  example  of  an  already  coherent  data  set  where  no  need  for 
rejection  was  found. 


TITLE  OF  INPUT  FILE  IS  : 

NBS  706  IN  40?i  02  P=800  MM  HG  3/20/78 

:(oloMoMofoK>toK>^o»oK>W2^oK)^o{oK>K>I■•-K)^oioK>foK>^:>MG♦o(oK>^oK5^o^ofoMoK>K>^^ 


•CHftNCE  OF  URONGLY  REJECTING  RfiNDOMLY  PLACED  EXTREmM 
IS  15.05 


PUT  PROCESSED  DATA  ON  FILE  8 


NUMBER 

E 

SIG  E 

D.O.C. 

SUT 

1 

22.42 

0. 18 

5.82 

573756.00 

2 

23. 19 

0. 14 

8. 19 

554887.00 

3 

23.39 

0.19 

11.37 

529632.00 

4 

23. 16 

0. 18 

13.49 

512748.00 

5 

22.87 

0.22 

16.48 

488986.00 

6 

22.93 

0. 17 

18.55 

472496.00 

7 

23.03 

0.29 

21.53 

448867.00 

8 

23.09 

0. 17 

23.64 

432094.00 

9 

23.76 

0.23 

26.71 

407669.00 

10 

23.55 

0.20 

23.38 

390441.00 

11 

23.51 

0.22 

32.06 

365137.00 

12 

23.83 

0. 19 

34.31 

347203.00 

13 

24.05 

0.25 

37.63 

320866.00 

14 

23.00 

0.20 

39.96 

302300.00 

15 

24.37 

0.22 

43.35 

275378.00 

16 

24.  12 

0.  14 

45.73 

256475.00 

17 

23.99 

0. 17 

49. 18 

229012.00 

18 

24.20 

0.14 

51.59 

299322.60 

19 

23.93 

0.18 

55.07 

182190.00 

PASS  NUMBER  1 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  23.508 
UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.188 


EXAMINE  LOGCSIGECD)  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  UHERE 
■ DS  » (AVERAGE  LCG  SIGE  - LOG  SIGE(I))/K 
K • SCALE  FACTOR 

AND  2 = NORMAL  DISTRIBUTION  QUANTILE 


DS  » -0.O00C  0.229)  + 0.170C  0.244)>KZ 

REDUCED  CHI  SQUARE  “ 0.001  CALCULATED  OVER  19  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.170 
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REJECTED  OUTLIERS  FOLLOU(fiBS(DS  VALUE)  GREATER  THAN  2.391) 

♦ DOC/TIME  DS  2 E SIGE  T/SUT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
19  DATA  LEFT 


OUTPUT  REMAINING  DATA 


» 

DOC/TIME 

DS 

2 

E 

SIGE 

T/SUT 

1 

5.8 

-0.29 

-0.26 

22.422 

0.177 

573755. 

2 

8.2 

-1.70 

-1.86 

23. 191 

0.  139 

554887. 

3 

11.4 

0. 16 

-0.00 

23.392 

0.191 

529532. 

4 

13.5 

-0.35 

-0.40 

23. 157 

0.175 

512748. 

5 

16.5 

0.99 

0.83 

22.867 

0.220 

438986 . 

6 

18.5 

-0.63 

-0.70 

22.935 

0.  167 

472496. 

7 

21.5 

0.37 

0.26 

23 . 03 1 

0.  193 

448867. 

8 

23.6 

-0.45 

-0.55 

23 . 086 

0.172 

432094. 

9 

26.7 

1.28 

1.38 

23.764 

0.231 

407669. 

10 

28. S 

0.43 

0.40 

23.552 

0 . 200 

390441 . 

11 

32.1 

1.10 

1.10 

23.507 

0.224 

355137 . 

12 

34.3 

0.16 

0.  13 

23.831 

0.  191 

347233. 

13 

37.6 

1.65 

1 . 86 

24.055 

0.246 

320866. 

14 

40.0 

0.52 

0.55 

22.997 

0.203 

302300. 

15 

43.3 

0.91 

0.70 

24.370 

0.217 

275378. 

16 

45.7 

-1.54 

-1.10 

24. 122 

0.  143 

256475 . 

1? 

49.2 

-0.66 

-3.88 

23.990 

0.  166 

229012. 

18 

51.6 

-1.66 

-1.38 

24.203 

0.  140 

209822. 

19 

55. 1 

-0.29 

-0.  13 

23.929 

0.177 

182190. 

PASS  NUMBER  2 


PRESENT  STATUS: -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  23.5BS 
UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  0.188 

EXAMINE  E AMD  SIGE  RELATIONSHIP  TO  DETECT 
OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  Z 

DE  = (E(I)-E  AVERAGE)/SIG  E(I) 

2 = NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 

RESCALE  SIGE  VALUES  BY  FACTOR  OF  3.844 

INPUT  SIGE  VALUES  NOU  RESCALED  BY  FACTOR  OF  3.844 

REJECTED  OUTLIERS  FOLLOUCABS(DE  VALUE)  GREATER  THAN  2.391) 

«■  DOC/TIME  DE  2 E SIGE  T/SUT  RATE  TEMP 


RATE 


RATE 


RATE 
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0 DfiTft  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
19  DATA  LEFT 


OUTPUT  REMAINING  DATA 


* 

DOC/TIME 

DE 

1 

5.8 

-1.60 

2 

8.2 

-0.59 

3 

11.4 

-0.  16 

4 

13.5 

-0.52 

5 

16.5 

-0.76 

6 

18.5 

-0.89 

7 

21.5 

-0.63 

8 

23.6 

-0.64 

9 

26.7 

0.29 

10 

28.9 

0.06 

11 

32. 1 

-0.00 

12 

34.3 

0.44 

13 

37.6 

0.53 

14 

40.0 

-0.65 

15 

43.3 

1.03 

16 

45.7 

1.12 

17 

49.2 

0.76 

18 

51.6 

1.29 

19 

55. 1 

0.62 

Z E 


-1. 

,86 

22. 

422 

-0. 

,40 

23. 

, 191 

-0. 

, 13 

23. 

.392 

-0. 

,26 

23, 

. 157 

-1. 

, 10 

22. 

,867 

-1 . 

,38 

22. 

,935 

-0. 

,55 

23 . 

,031 

-0. 

,70 

23. 

,086 

0. 

,26 

23. 

,764 

0, 

, 13 

23. 

,552 

-0, 

.00 

23. 

.507 

0. 

.49 

23. 

.831 

0. 

.55 

24. 

.055 

-0, 

.88 

22. 

,997 

1, 

. 10 

24. 

.370 

1, 

.38 

24, 

. 122 

0, 

.88 

23, 

.990 

1, 

.86 

24, 

.200 

0. 

.70 

23, 

.929 

SIGE 

T/SWT 

0.680 

573756. 

0.534 

554887. 

9.734 

529632. 

0.673 

51274S. 

0.846 

488986. 

0.642 

472496. 

0.751 

443867. 

0.661 

432094. 

0.838 

407559. 

0.769 

390441 . 

0.861 

355137. 

0.734 

347233. 

0.946 

320SS6. 

0.780 

302300. 

0.834 

275373. 

0.550 

256475. 

0.638 

22S012. 

0.538 

209822. 

0.630 

132190. 

RATE  TEMP 


UEIGHTED  MEAN  E IS  23.508  + OR  - 0.159 

REDUCED  CHISQ  FOR  E CALCULATION  IS  0.630  (SHOULD  BE  1 . ) 

LINUEIGHTED  MEAN  OF  SIGMAS  IS  0.724 

CALCULATED  OVER  18.  DEGREES  OF  FREEDOM 


ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

DISTRIBUTED.  TRUE  WEIGHTED  MEAN  LIES  WITHIN  RANGE  23.195  TO  23.821 
FOR  95y,  CONFIDENCE  LEVEL 

UNWEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
OF  ITS  SIGMA  ARE  23.495  AND  0.124 
THIS  GIVES  A CONFIDENCE  RANGE  OF  23.251  TO  23.739 
CHI-SQUARE  FOR  UNWEIGHTED  E IS  0.63 

19  DATA  WRITTEN  ON  FILE  = 8 = 


DE  *=  -0.030+  1.090YZ  + 0.117>»<2  ^+2  + -0.193*Z 

REDUCED  CHI  SQUARE  IS  0.001  CALCULATED  OVER  19  POINTS 

3 CURVES  GENERATED  FOR  DE/Z  PLOTS 
Z IS  THE  HORIZONTAL  AXIS 

DE  IS  THE  FIRST  CURVE  SECOND  CURVE  IS  LINEAR  FIT  OF  DE  TO  Z 
THIRD  CURVE  IS  POLWOMIAL  FIT  OF  DE  TO  Z 
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RATE 


0.16322E+01 


B 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

0.98633E+00  - 
+ 
+ 
+ 
+ 

+ 

+ 

+ 

+ 

0.34048E+00  - 
+ 
+ 
+ 
+ 

+ 

+ 

+ 

+ 

-0.3053SE+00  - 
+ 
+C 
+ 
+ 

+ 

+ 

+ 

+ 

-0.95121E+00  - 
+ 
+ 
+ 
+ 


B 

C 

B 

B 

B 

C 

B 

C fi 

B B 

B B 

C 

B' 

B 


B 

B 

B 

C 

B 

B 

B 

BC 

B C 

B 

B C fl 
B B B 
C 

B B 
C C 
B 

B 


B 

C 


B 


+ 

+ 

+ 


“0. 15971E+01  -B 

0.1861E+010.  11168+010. 3721E+000. 3721E+080. 1H6E+810.  1S61E+01 


B - DE  V.  Z 

B - LINEAR  FIT  OF  DE  TO  2 
C - POLYNOMIAL  FIT  OF  DE  TO  Z 
JOB  COMPLETED 
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An  example  of  an  incoherent  data  set  where  there  was  insufficient 
coherence  to  form  a basis  for  rejection  of  incoherent  values.  The 
solution  adopted  was  to  examine  only  the  values  for  the  last  few 
percent  of  reaction  where  the  sample  was  expected  to  behave  most  ideally. 


TITLE  OF  INPUT  FILE  IS  : 

NBS  IN  100?i  N2  P=8500  m HG  3/22/78  BIG  SftMPLE 
PUMP  OUT  OPPftRATUS  FIRST,  RUN  OVERNIGHT 


CHANCE  OF  WRONGLY  REJECTING  RANDOMLY  PLACED  EXTREMUM 
IS  15.05 

PUT  PROCESSED  DATA  ON  FILE  8 


ER 

E 

SIG  E 

D.O.C. 

SWT 

1 

12.69 

2.57 

4. 15 

1085470.00 

2 

36.82 

3.48 

5.53 

1067210.00 

3 

31.17 

1.30 

8.26 

1031410.13 

4 

35.91 

1.14 

9.44 

■ 1015930.19 

5 

20.64 

3.09 

11.20 

992725.00 

6 

38.86 

1.12 

15. 10 

941400.00 

7 

35.49 

2.15 

16.69 

920566.00 

e 

30.65 

2.71 

19.24 

887012.00 

9 

32.50 

3.04 

20.97 

■ 864279.00 

10 

46. 12 

1.09 

23.48 

831207.00 

11 

18.74 

1.35 

25.06 

810437.00 

12 

34.84 

0.93 

27.81 

774356.00 

13 

42.76 

• 0.96 

29.40 

753337.00 

14 

24.64 

1.08 

32.05 

718563.00 

15 

60.62 

1.20 

35.71 

670464.00 

16 

21.43 

0.73 

38.32 

636114.00 

17 

43.09 

0.91 

40.  16 

611956.00 

18 

21.01 

1.22 

42.76 

577762.00 

19 

29.63 

0.96 

46.34 

530683.00 

20 

29.73 

0.73 

48.82 

498026.00 

21 

43.  17 

1.24 

50.56 

475073.00 

22 

31.28 

1.07 

53.03 

442594.00 

23 

42.98 

1.14 

54.69 

420855.00 

24 

39.52 

1.05 

57.07 

389516.00 

25 

36.25 

0.90 

53.62 

369091.00 

26 

43.91 

0.79 

60.87 

339541.00 

27 

33.85 

0.81 

62.34 

320223.00 

28 

33.09 

0.77 

64.43 

292732.09 

29 

45^22 

0.86 

65.81 

274631.00 

30 

33.92 

0.61 

67.78 

248676.00 

31 

36.71 

0.65 

69.03 

231541.00 

32 

36.89 

0.62 

70.91 

207555.00 

33  . 

40.48 

0,60 

72.  10 

191946.00 

34 

36.94 

0.44 

73.78 

169344.00 

35 

41.05 

0.29 

74.83 

155931.00 

36 

46.  10 

0.87 

77. 16 

125345.00 

37 

36.50 

1.03 

80.63 

79011.37 

38 

53.48 

0.87 

82.69 

52586.20 

39 

47.25  . 

0.89 

85.45 

16312.40 

40 

40.06 

0.65 

86.97 

-3690.95 

41 

47.16 

0.59 

89.05 

-30987.50 

42 

46.37 

0.29 

90. 17 

-45714.70 

43 

45.71 

0.40 

92.45 

-75782.38 

44 

46.80 

0.51 

95.83 

-109618.00 

45 

45.04 

0.25 

96. 15 

-124405.00 

46  45.75 

; number  1 

0.61 

97.80 

-146053.00 

PRESENT  STATUS : -AVERAGE  WEIGHTED  E IN  KCAL/MOLE  I'S  41.272 
UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  1.099 


EXAMINE  LOG(SIGECD)  DISTRIBUTION  TO  DISCARD 
OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  WHERE 
DS  » (AVERAGE  LOG  SIGE  - LOG  SIGE(I))/K 
K « SCALE  FACTOR 

AND  2 * NORMAL  DISTRIBUTION  QUANTILE 

DS  - 0.800(  0.147)  + 0.584(  0.152)5^7 

REDUCED  CHI  SQUARE  = 0.017  CALCULATED  OVER  46.  POINTS 

RESCALE  DS  VALUES  BY  FACTOR  OF  0.584  . 

REJECTED  OUTLIERS  FOLLOUC ABS (DS  VALUE)  GREATER  THAN  2.685) 

« DOC/TI^E  DS  2 E SIGE  T/SUT  RATE  TEMP  RATE 

. 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
46  DATA  LEFT 


OUlPUT  REMAINING  DATA 


♦ DOC/TIME 

DS 

Z 

E 

SIGE 

I 

4. 1 

-1.98 

-1.82 

12.694 

2.575 

2 

5.5 

-0.77 

-1.07 

36.818 

3.484 

3 

8.3 

1.76 

1.28 

31.172 

1.298 

4 

9.4 

2.28 

2.22 

35.911 

1.141 

5 

11.2 

0.59 

0.97 

20 . 645 

3.093 

6 

15. 1 

0.37 

0.67 

38.363 

1.120 

7 

16.7 

2.08 

1.82 

35 . 430 

2.  146 

8 

19.2 

0.34 

0.54 

30.649 

2.713 

9 

21.0 

1.45 

1.17 

32.505 

3.039 

16 

23.5 

-0.72 

-0.89 

46. 123 

1.035 

11 

25.1 

1.85 

1.42 

18.745 

1.343 

12 

27.8 

2.05 

1.59 

34.841 

0.929 

13 

29.4 

0.30 

6.48 

42.758 

3.953 

14 

32.0 

0.65 

1.07 

24.640 

1.077 

15 

35.7 

0.02 

0.08 

60.623 

1.200 

16 

38.3 

0.07 

0.14 

21.423 

0.733 

T/SWT  RATE  TEMP  RATE 

1085470.  • 

16S7218. 

1031410. 

1015930. 

932725. 

941400. 

920566. 

887012. 

864279. 

331207. 

810437. 

774356. 

7i33,i7 . 

718563. 

670464. 

636114. 
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17 

40.2 

0.27 

0.42 

43.092 

0.913 

611956. 

le 

42.8 

0.45 

0.74 

21.011 

1.229 

577762. 

19 

46.3 

-0.59 

-0.48 

29.631 

0.961 

530689. 

20 

48.8 

-0.01 

0.03 

29.729 

0.723 

498026. 

21 

50.6 

0.43 

0.81 

43.171 

1 .236 

475073. 

22 

53.0 

0.07 

0.  19 

31.281 

1.069 

442594. 

23 

54.7 

-1.26 

-1.23 

42.980 

1.138 

420355. 

24 

57.  1 

-0.74 

-0.97 

39.519 

1.050 

389516. 

25 

58.6 

-0.69 

-0.81 

36.255 

0.399 

369091, 

26 

60.9 

-0.67 

-0.74 

43.907 

0.789 

339541. 

27 

62.3 

-0 . 59 

-0.67 

33.851 

0.305 

320223. 

28 

64.4 

-0.40 

-0.54 

33.095 

0.769 

292732. 

29 

65.8 

-0.31 

-0.42 

45.223 

0.864 

274631. 

30 

67.8 

-0 . 26 

-0.36 

33.924 

0.614 

243676. 

31 

69.  1 

-0.23 

-0.30 

36.706 

0.551 

231541 . 

32 

70.9 

-0.11 

-0.25 

36.839 

0.622 

207555 . 

33 

72.  1 

-0.34 

-0.03 

49.430 

0.538 

191946. 

34 

73.8 

0.23 

0.30 

3b . 942 

0.441 

169344. 

35 

74.8 

0.25 

0.36 

41.054 

0.290 

155931. 

36 

77.2 

8.36 

3 . 60 

46. 195 

0.871 

125345. 

37 

80.7 

0.50 

0.89 

36.497 

1.027 

79011. 

38 

82.7 

-8.59 

-0.60 

53.434 

0.874 

52586. 

39 

85.4 

0.  19 

0.25 

47 . 246 

0.894 

15312. 

40 

87.0 

-0.09 

-0.  14 

40.063 

0.652 

-3691. 

41 

89.0 

-0.05 

-0.08 

47. 162 

0.587 

-30388. 

42 

90.2 

-0.09 

-0.19 

46.369 

0.232 

-43715. 

43 

92.4 

-1.43 

-1.42 

45.711 

0.399 

-75782. 

44 

95.0 

-1.97 

-1.59 

46.894 

0.515 

-109618. 

45 

96.1 

-0.99 

-1.17 

45.637 

0.254 

-124485. 

46 

97.8 

-2.21 

-2.22 

45.755 

0.605 

-146053. 

PASS  NUMBER  2 


PRESENT  STATUS : -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS  41.272 

UNWEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS  1.0S9 

EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT 

OUTLIERS  ON  DE  STATISTIC 

FIT  OF  DE  TO  Z 

DE  «=  (E(I)-E  AVERAGE) /SIG  E(D 

2 = NORMAL  DISTRIBUTION  QUANTILE 

NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION 


RESCALE  SIGE  VALUES  BY  FACTOR  OF  10.667 
INPUT  SIGE  VALUES  NOW  RESCALED  BY  FACTOR  OF  10.667 
REJECTED  OUTLIERS  FOLLOU(ABS(DE  VALUE)  GREATER  THAN  2.685) 

♦ DOC/TIME  DE  Z E SIGE  . T/SUT  RATE  TEMP 


0 DATA  DISCARDED  AS  OUTLIERS  IN  TAILS  OF  DISTRIBUTION 
46  DATA  LEFT 


RATE 
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OUTPUT  REMAIN  I NG  DATA 


* 

DOC/TIME 

DE 

Z 

E 

SIGE 

T/SUIT 

1 

4. 

1 • 

-1. 

,04  • 

-0. 

97 

12. 

694 

27. 

463 

1835470. 

2 

5. 

5 • 

-0. 

, 12 

0. 

25 

36. 

813 

37. 

165 

1067210. 

3 

8. 

3 • 

-0. 

.73  ■ 

-0. 

60 

31. 

172 

13. 

346 

1031410. 

4 

9. 

4 • 

-0. 

.44  ■ 

-0. 

25 

35. 

911 

12. 

171 

1015930. 

5 

11. 

2 • 

-0, 

.63 

-0. 

36 

20. 

645 

32. 

994 

992725. 

6 

15. 

I 

-0, 

.20 

0. 

03 

38. 

863 

11 . 

947 

941400. 

7 

16. 

7 

-0, 

.25 

-0. 

03 

35. 

490 

22. 

892 

920566 . 

e 

19. 

2 

-0, 

.37 

-0. 

14 

30. 

649 

23. 

941 

837012. 

9 

21. 

0 

-0, 

.27 

-0. 

08 

32. 

535 

32. 

418 

364279. 

10 

23. 

5 

0, 

.42 

0. 

.67 

46. 

123 

11. 

631 

831207. 

11 

25. 

1 

-1. 

.57 

-1  . 

82 

18. 

745 

14. 

,390  ■ 

810437. 

12 

27. 

8 

-0, 

.65 

-0. 

,42 

34. 

841 

o 

,910 

77-^-356. 

13 

29. 

4 

0, 

. 15 

0. 

,43 

42. 

753 

10. 

,219 

753337. 

14 

32. 

0 

-1, 

.45 

-1  . 

,28 

24. 

640 

1 1 . 

,439 

718563. 

15 

35. 

7 

1, 

.51 

1. 

,82 

60. 

623 

12. 

,801 

670464. 

16 

38. 

3 

-2 

.54 

-2. 

,22 

21. 

428 

7. 

,819 

636114. 

17 

40. 

2 

0 

. 19 

0. 

,54 

43. 

092 

Q 

,739 

611955. 

18 

42. 

8 

-1 

.56 

-1. 

,59 

21. 

011 

13. 

,014 

577762. 

19 

46. 

5 

< 

” 1 

. 14 

_ 1 ^ 

. 17 

29. 

631 

10. 

,25! 

530689. 

20 

48. 

8 

-1 

.49 

-1 . 

.42 

29. 

729 

7. 

. 766 

498026. 

21 

50. 

6 

0 

. 14 

0. 

.42 

43. 

171 

13. 

. 185 

475073. 

22 

53. 

0 

-0 

.83 

-0. 

.74 

31. 

281 

11. 

,403 

442594. 

23 

54. 

7 

0 

. 14 

0. 

.36 

42. 

980 

12, 

, 139 

420855. 

24 

57. 

1 

-0 

. 16 

0, 

. 14 

39. 

519 

1 1 , 

.201 

389516. 

25 

58. 

6 

-0 

. 52 

-0. 

.30 

36 . 

255 

9, 

.590 

369091. 

26 

60. 

9 

0 

.31 

0, 

.60 

43. 

907 

3 . 

,417 

339541 . 

27 

62. 

,3 

-0 

.86 

-0, 

.67 

33. 

851 

!-| 
O < 

.537 

320223. 

28 

64. 

4 

-1 

.00 

-0, 

.83 

33. 

095 

3, 

.203 

292732. 

29 

65. 

,8 

0 

.43 

0, 

.74 

45. 

223 

9, 

.217 

274631 . 

30 

67. 

,8 

-1 

. 12 

-1  , 

.07 

33. 

924 

.550 

243676.. 

31 

69. 

, 1 

-0 

.66 

-0 

.43 

3b . 

706 

6, 

.944 

231541 . 

32 

70. 

,9 

-0 

.66 

-0 

.54 

36. 

,889 

6, 

.635 

207555. 

33 

72. 

, 1 

-0 

. 12 

0 

. 19 

40. 

,480 

6, 

.379 

191946. 

34 

73. 

,8 

-0 

.92 

-0 

.81 

35 . 

,942 

4, 

.704 

169844. 

35 

74. 

,8 

-0 

.07 

0 

.30 

41. 

,054 

3, 

.394 

155931 . 

36 

77. 

.2 

0 

.52 

0 

.8! 

46. 

, 105 

9 

.291 

125345. 

37 

80. 

.7 

-0 

.44 

-0 

. 19 

36, 

,497 

10, 

.955 

79311. 

38 

82, 

.7 

1 

.31 

1 

.42 

53 . 

,434 

9 

.323 

52586. 

39 

85, 

.4 

0 

.63 

0 

.89 

47. 

,246 

9 

.537 

16312. 

40 

87, 

.0 

-0 

. 17 

0 

.03 

43. 

,063 

6 

.955 

-3691 . 

41 

89, 

.0 

0 

.94 

1 

.07 

47. 

. 162 

6 

.262 

-30983. 

42 

90, 

.2 

1 

.64 

2 

.22 

46. 

.369 

3 

. 115 

-45715. 

43 

92, 

.4 

1 

.04 

1 

.23 

45, 

.711 

4 

.256 

-75782. 

44 

95, 

.0 

1 

.01 

1 

. 17 

46, 

,804 

5 

.494 

-109618. 

45 

96 

. 1 

1 

.39 

1 

.53 

45, 

.037 

.710 

-124405. 

46 

97 

.8 

0 

.69 

0 

.97 

45, 

.755 

6 

.454 

-146053. 

RATE  TEMP 


UEIGHTED  MEAN  E'lS  41.272  + OR  - 1.051 

REDUCED  CHISQ  FOR  E CALCULATION  IS  0.870  (SHOULD  BE  1.) 


RATE 


t 
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UNUEIGHTED  MEAN  OF  SIGMAS  IS  11.729 
CALCULATED  OVER  45.  DEGREES  OF  FREEDOM 

ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY 

distributed,  true  weighted  I-EAN  lies  U I THIN  RANGE  39.211  TO  43.332 
FOR  95%  CONFIDENCE  LEVEL 

UNUEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
OF  ITS  SIGMA  ARE  37.454  AND  1.394 
THIS  GIVES  A CONFIDENCE  RANGE  OF  34.721  TO  40.186 
CHI-SQUARE  FOR  UNUEIGHTED  E IS  1.16 

46  DATA  URITTEN  ON  FILE  = S = 


DE  » -0.264+  0.873^Z  + 0.084>i<Z  + 0.014>«Z  >k>k3 

REDUCED  CHI  SQUARE  IS  0.000  CALCULATED  OVER  46  POINTS 

3 CURVES  generated  FOR  DE/Z  PLOTS 
Z IS  THE  HORIZONTAL  AXIS 

DE  IS  THE  FIRST  CURVE  SECOND  CURVE  IS  LINEAR  FIT  OF  DE  TO  2 
THIRD  CURVE  IS  POLYNOMIAL  FIT  OF  DE  TO  Z 


+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 


C ft 


ft 

ft 


0.12883E+01 


+ 

+ 

+ 

+ 


ft  B 
C 

-B 


ftft  B 
flCB 
CB 


0.33176E+00  - 


+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 


B 

ftftft 


BB 

Bft 

ftftA 


+ 

+ 

+ 

+ 


ftB 

ftft 


-0.62476E+00  - 


+ 

+ 

+ 


B 

ftft 
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+ 

+ 

+ 

■0.I58I3E+01  - 
+ 
+ 

+ 

+C 

+B 

+ 

+ 

.25376E+01  -ft 


ft 

C 

e 


B 

ft 


6 


ftft 

ftftB 

B 


ft  - DE  V.  z 
ft  - linear  fit  np 
C - POLYHotliRL  F7t^L'^°  ^ 

JOB  COMPLETED  TO  2 


+ 

^^24E+Qi 
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Listings  of  the  routines  in  the  FORTRAN  program  TGDEPG. 


SPlSSM 
TGDEN  PROG 
$F0RT 
$TRGT  16 

c 

C TGDEN,  SET  UP  FOR  nULTlPLE  RUNS  FRCn  ONE  START. 

C PROGRAM  TO  EVALUATE  TG  DATA  DERIVED  FROM  TEMPERATURE  JUMPS 

C 

c 

C URITTEN  BY  B.  DICKENS,  311.82  NSS 
C 

C TELEPHONE  (381)  921-3322 

C PROGRAM  NEEDS  THE  FOLLOUING  SUBROUTINES  AND  FUNCTIONS: 

C DATARD 

C PINV 

C PLOT 

C PR0BP2 

C REGRES 

C PLOT 

C SORTS 

C UTAVER 

C 

c 

C COMMON  BLOCKS  /lO/  AND  /REGRS/  DEFINED  VIA  ARRAY  'DUMP' 

C COMMON  /lO/  NTTYI,NTTYO, IN,NPR!N7,NFILEA,NFILE3 
C COMMON  /REGRS/  MC5) , R (5) , YF IT(250) 

C 

COMMON  DUMP  (275) 

EQU I VALENCE  ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP ( 3 ) ) 

8,  , (NPRINT,DUM?(4) ),  (NFILEA,DLIMP(5) ) , (NF ILE3, DUM=  (5)  ) 

DIMENSION  M(5) ,R(5) ,YF1T(250) 

EQUIVALENCE  (M(  1 ) , DUMP ( 18) ) , (R(  1 ) , DUMP ( 15) ) , (YF IT(  1 ) , DU:"? (28) 


C 

c 


c 

c 

c 

c 

c 

c 

c 


DIMENSION 
DIMENSION 
D I MENS  I Of  1 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


NTITLE(64),NTIME(50),TRFADC2,5O),RATE(2,53) 
TEMP(2,58) ,SIGT(2,53),SIGR(2,58) ,E(53) ,5IGEC53) 
SIJT(59)  ,D0C(53) 

DEZC10),rE(S0),Z(58) 

DEPRC3 (50) , I D (58) , VRATE (53) , VTEM? (58) 

SIGLOG(50) 

I DOLD ( 50 ) , AZ ( 1 0 ) , S I GAZ ( 1 8 ) 
PL0TM(1G0,6),PLGTYC1S0,5),NPTS(S) 


JioioK  NOTE  THAT  THIS  EQUIVALENCE  MAY  GIVE  SOME  SLIGHT  POUND-OFF 
CHANGES  IN  NTIME  (=DOC=  IS  USUALLY  USED  IN  THE  FRCGAM 
SO  DOC  SHOULD  REMAIN  UNCHANGED) 

EQUIVALENCE  ( DOC ( 1 ) , NTIME ( 1 ) ) 

OVERLAY  NAMES  AND  FILE  ASSIGNMENTS 

INTEGER>K2  IPRIMS(3) , ISTTSS(3) 

DATA  IPRIMS  /'OP','RI','MS'/.  ISTTSS  /'OS' , 'TT' , '33'/ 

NPRIMS=11 

NSTTSS=12 


) 


NTTYO =4 

CALL  OVERLY  ( IPRIMS, NPR IMS, 0, NTTYO) 

C 

C INITIALISE  AND  READ  IN  DATA 

C 

CALL  PRIMES  (NLOOPY, NDATA, NLOOP,  SA\'ER,  SA''/E,  INDATA) 

100  IF  (NLOOPY.GT.O)  CALL  OVERLY  ( IPRIMS,  NPR  IMS,  8,  NTTfri) 

CALL  DATARD  (SAVER, NTITLE,NLOOPY,  IDOLD.E.SIGE, SLIT, DOC, NTIME, TI 
8.  , S I GT,  RATE , S I GR , I D , I NDATA , NDATA , NERROR ) 

IF  (NERROR. GT.8)  GO  TO  608  : 
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CALL  OVERLY  ( ]STTS3,NSTTSS,0,NTTY0) 

SIGSCL  = 1. 

C 

C NTYME  IS  NUriBER  OF  CURRENT  PASS  LHEN  SEEKING  TO  REJECT 
C OUTLIERS  AND  RESCALE  SIGE(I)  VALUES. 

C 

NTYME  = 0 

C 

C BEGIN  BY  CHECKING  SIGtlA  DISTRIBUTION 
C ASSUME  LN(SIGEdj)  IS  NORMALLY  DISTRIBUTED 

C (AS  ORIGINALLY  FORMULATED,  THE  FRQGRAM  UAS  TO  CHECK  SIGE(D>f^2 
C AGAINST  A CHI -SQUARE  DISTRIBUTION,  BUT  THAT  VERSION 
C GOT  TO  BE  TOO  LARGE) 

C 

DO  180  I = 1,NDATA 
DEPROB(I)  = 1. 

SIGLOG(I)  = ALOGCSIGECD) 

180  CONTINUE 

NSIG  =0  - 

NFLAG2  = 'Z  ' 

190  NTYME  = NTYME+1 

IF  (NFILEB.GT.S)  UR ITE (NF ILE3, 2S0)'  NPAME 
IF  (NPRINT.GE.3)  UR  ITE  (MPR Ilfr,  200)  NTYI'E 
200  FORMAT  (/12H  PASS  NUMBER, IS) 

C 

C GET  UEIGHTED  MEAN  OF  ACTIVATION  ENERGY 
C AND  AVERAGE  VALUE  CUNUEIGHTED)  OF  SIGE(I). 

C 

CALL  REGRES  (DEPROB,E,SIGE,NDATA.0,M, 1 , YFIT,UTEAVE,AZ(  1) 

8., UTSIZE,SIGAZ(  1)  ,R,RMUL,RCHMN,TEST) 

CALL  REGRES  (DEFR03 , S IGE, E, NDATA , O . M, 0. YF IT, S I GAVE, AZ  C 1 ) 

8., AZ(2),SIGAZn)  .R,RMLiL,RCH3IG,TEST) 

IF  (NFILEB.GT.S)  UR  ITE  (NF  ILE3, 2 10)  LJTEAVE,  S IGAVE 
IF  (NPRINT.GE.3)  URITE  (NFRINT,210)  UTEAVE, S IGAVE 
210  'FORMAT  (//51H  PRESENT  STATUS; -AVERAGE  UEIGHTED  E IN  KCAL/MOLE  IS, 

8.  F7.3/33H  UNUEIGHTED  AVERAGE  OF  SIGMA  VALUES  IS,F7.3/) 

C 

IF  (NSIG.EQ.I)  GO  TO  250 

C 

C EXAMINE  DISTRIBUTION  OF  SIG  E VALUES 

C 

C CALCULATE  QUANTITIES  FOR  NORMAL  PROBABILITY  PLOT 

C 

IF  (NFILEB.GT.S)  URITE  CNFILE3,220) 

IF  (NPRINT.GE.3)  URITE  (NPRINT,220) 

220  FORMAT  C//45H  EXAMINE  LGGCSIGEd))  DISTRIBUTION  TO  DISCARD/ 

8.  42H  OUTLIERS  ON  BASIS  OF  DS  STATISTIC,  UHERE  / 

8.  ' DS  = (AVERAGE  LOG  SIGE  - LOG  3IGEd))/K'/'  K = SCALE  FACTOR'/ 
8c  ' AND  Z = NORMAL  DISTRIBUTION  QUANTILE’/) 

C 

CALL  REGRES  (DEFRGB,SIGLOG,E,NDATA,0,M,0,YFIT,SIGLAV 
8c,  AZ  ( 1 ) , S I GAZ  (1 ) , S I GAZ  ( 2 ) , R , Ri'iUL , RCHS I G , TEST) 

I F (NPR I NT . GT , 3 ) UR  I TE ( NPR I NT, S52 ) S I GLA V 
952  FORMAT('  AVERAGE  OF  LOG  SIGMAS  IS',F10.3//) 

NFLAGl  = 2HDS 

CALL  PR0BP2  (DE, Z, S IGLGG, DEPR03, S IGLAV, ID, NDATA) 

CALL  REGRES  (Z, DE, DEPR03, NDATA, 1 , M, 1 , YF IT, AZ d ) , AZ (2) 

8.. 51,AZ(  1)  ,SIGAZC2)  ,R,RMIjL,CHISQR,TEST) 

IF  (NFILEB.GT.S)  URITE  (NFILEB,11)  NFLAG 1 , AZ ( 1 ) , S IGAZ  ( 1 ) 

8.  ,AZ(2),SIGAZ(2)  ,NFLAG2,CHISQR,NDATA 
IF  (NPRINT.GE.3)  URITE  (NPR I NT, 11)  NFLAG 1 , AZ d ), S IGAZ  (1 ) 

8.  ,AZ(2)  ,SIGAZ(2)  ,MFLhG2.0MISQR, NDATA 
11  FORMAT  (/IH  ,A2,2H  =,F3.3,  lH(,F7.3,-iH)  + ,F8.3,  1H(,F7.3,2H)>;^, A2/ 

8.  21H  REDUCED  CHI  SQUARE  =,F7.3,17H  CALCULATED  OVER  , 15, 7H  POINTS/ 

8i  ) 

C 
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C fiPPLY  SCALE  TO  DS  AND  SIGLOG 
C 

DO  230  I = l.NDATA 
SIGLOG(I)  = SIGL0G(i:'/A2C2) 

230  DE(I)  = DE(I)/AZ(2) 

SIGSCL  = SIGSCL>i:AZ':2) 

IF  (NFILEB.GT.S:'  U2I7E  (NFILE5,240)  SIGSCL 
IF  (NPRINT.GE.3)  IJRITE  (NPR1NT,240)  SIGSCL 
240  FORMAT  (31H  RESCALE  DS  VALUES  BY  FACTOR  0F,F9.3) 

GO  TO  330 
250  CONTINUE 

NFLAGl  = 21-lDE 

IF  (NFILEB.GT.S)  WRITE  (NFILEB,260) 

IF  (NPRINT.GE.3)  WRITE  aiPRIMT,2£0) 

260  FORMAT  (42H  EXAMINE  E AND  SIGE  RELATIONSHIP  TO  DETECT/ 

8.  25H  OUTLIERS  Oil  DE  STATISTIC/) 

C 

C CALCULATE  QUANTITIES  FOR  NORMAL  PROBABILITY  PLOT. 

C 

CALL  PR0BP2  (DE,2,E,SIGE,IJTEAVE,  ID.NDATA) 

C 

C EXAMINE  LINEARITY  OF  FIT  OF  DE  TO  Z 

C 

IF  (NFILEB.GT.S)  WRITE  (NFILEB.270) 

IF  (NPRINT.GE.3)  WRITE  (NPR IMT, 270) 

270  FORMAT  (15H  FIT  OF  DE  TO  2/31H  DE  = (E(I)-E  AV€RAGE)/SIG  Ed)/ 
8.  33H  Z = NORMAL  DISTRIBUTION  QUANTILE/ 

& 4SH  NUMBERS  IN  PARENTHESES  ARE  STANDARD  DEVIATION/) 

IF  (NTYME.EQ. 1 .AND. NFILEB.GT.S)  WRITE  (NFILEB,230) 

IF  (NTYME.EQ.  1.  AND. NPRINT.GE.3)  WRITE  (NPR  INT, 23'3) 

280  FORMAT  (49H  ESTABLISH  DE/Z  CORRESPONDENCE  AND  HENCE  SCALE  OF, 

8.  ISH'SIGEd)  VALUES/) 

C 

C USE  PROBABILITIES  FROM  NORMAL  DISTRIBUTION  AND 
C DE  AS  WEIGHTS  IN  CALCULATING  DE/Z  FIT 

C 

DO  2S0  I = 1,NDATA 

DEPROB(I)  = (0.39334223/SIGE(I))>*<E>P(-(DE(I)X-^2)/2.) 

C 

C MAKE  DEPROB  SUITABLE  FOR  ROUTINE  WHICH  EXPECTS 
C STANDARD  DEVIATIONS 

C 

290  DEPROB(I)  = l./3QRTCDEPR0B(D) 

CALL  REGRES  (Z, DE, DEPROB, NDATA, 1 ,M, 1 , YF IT, AZ ( 1 ) , AZ (2) 

&,SIGAZ(1) ,SIGAZ(2) ,R,RMUL,CHISQR,7EST) 

C 

C APPLY  SCALE  FACTOR  TO  SIGE  AND  DE 

C 

DO  300  I = 1,MDATA 
SIGE(I)  = SIGE(I)4AZ(2) 

300  DE(I)  = DE(I)/AZ(2) 

SIGSCL  = SIGSCLWAZC2) 

IF  (NFILEB.GT.S)  WRITE  (NFILEB,310)  AZ(2) 

IF  (NPRINT.GE.3)  WRITE  (NFR INT, 3 10)  AZ(2) 

310  FORMAT  (/33H  RESCALE  SIGE  VALUES  BY  FACTOR  0F,F7.3/) 

IF  (NFILEB.GT.S)  WR ITE (NF ILEB, 320) S IGSCL 
IF  (NPRINT.GE.3)  WRITE  (NPRINT,320)  SIGSCL 
320  FORMAT  (45H  INPUT  SIGE  VALUES  NOW  RESCALED  BY  FACTOR  0F,F7.3/) 
C 

C PUT  DE  AND  Z ARRAYS  BACK  IN  CORRESPONDENCE  WITH  INPUT  ORDER 
C I.E.  SORT  ON  ID  ARRAY 

C 

330  CALL  SORTS  ( ID,DE,Z,NDATA) 

C 

C CHOP  OFF  OUTLIERS,  I.E.  BEYOND  ABS(DE( I) .GT.SIGCUT) 

C 
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KOUNT  = 0 


C 

C SIGCUT  IS  NORmL  DEVIATE  UHICH  DIVIDES  END  0RE0  OF  NOP“^RL 
G DISTRIBUTION  SO  TROT  THERE  IS  f\  = SPvE  = CHRNCE  Or  REJECTING  fl 
C END  VHLUE  HMD  = (1-SflVE)  = CHANCE  OF  ACCEPTING  IT. 

C PRESUmBLY  TRUE  OUTLIERS  WILL  BE  MOSTLY  REJECTED  UNDER  THIS 
C CRITERION 
C 


FDATA  = NDATA 

TESTP  = ((2. -3. 1415927/3.  )/i:FDATA+1. -3.  1415327/4.  -SAVE) 

SIGCUT  = ABSCPIMV(TESTP)) 

IF  (NFILEB.GT.b)  MRITE  (NF ILEE. S/'D)  NFLAG  1 , S IGCUT 
IF  (NPRIMT.GE.3)  l.JRITE  CNPR  INT. 3^0)  NFLAG  1 . S IGCUT 
340  FORMAT  ('  REJECTED  OUTLIERS  FGLLO'.J  (A33('.A2. 

8.  20H  VALUE)  GREATER  THAN..F6.3.  IH) ) 

IF  (NFILEB.GT.b)  URITE  (NFILEB.35D)  NFL AG  1 
IF  (NPRINT.GE.3)  URITE  CNFRINT,330)  NFLAGl 
350  FORMAT  (/'  =?r  DOC/TIME  ',A2,'  2 ' E SIGE  T/SUT' 

& 29H  RATE  TEMP  RATE/) 

C 

C OUTPUT  REJECTED  VALUES 

C 


.DO  390  I = 1, NDATA 

360  IF  ( ABS (DEC  I) ).LE. SIGCUT)  GO  TO  399 
IF  ( INDATA.GT.0)GO  TO  3G5 

IF  (NFILEB.GT.S)  URITE  CNFILE3,370)  IDOLDC I) ,NTIME( I) ,DE( I) 
& ,2(1) ,E(  I) .GIGECI) 

& , (TEMP  (K,  I),  RATE  (K,  I ),!(  = !..  2) 


IF  (NPRINT.GE.3)  URITE  (NPRINT,370)  IDOLD ( I ) , NTIME ( I ) , DE ( I ) 


8.  ,2(I),E(I),SIGECT) 

8.  . (TEMPCK,  D.RATECK,  !),!<  = 1,2) 


370  FORMAT  ( 13, I9,2Fb.2,2F7.3,F7.2,El 1 .3,F7.2,E1 1 .3) 

GO  TO  375 

365  IF  (NFILEB.GT.S)  URITE  (MFILEB,372)  IDOLDC  I)',DOC(  I)  ,DE(  I) 
8.  ,2(I),E(I),SIGE(I),SUT(I) 

IF  (NPRINT.GE.3)  URITE  (NPR INT, 372) IDOLD C I ) , DOC ( I ) , DE ( I ) 
8.  ,2(I),E(I),SIGE(I).SUT(I) 

372  FORMAT  ( I3,F9. l,2Fb.2,2F7.3,F10.G) 

375  CONTINUE 

KOUNT  = KOUNT+1 
NDATA  = NDATA- 1 
IF  (I.GT.MDATA)  GO  TO  430 


C 

C REMOVE  VALUES  FROM  ARRAYS  AND  CLOSE  UP  ARRAYS 

C 

DO  380  J = I, NDATA 
IDQLD(J)  = IDOLD(J+i) 

E(J)  = E(J+1) 

SIGE(J)  = SIGE(J+1) 

SIGLOG(J)  = SIGLOGCJ+l) 

DE(J)  = DECJ+l) 

Z(J)  = 2(J+1) 

SIJT(J)=SUT(J+1) 

D0C(J)=D0C(J+1) 

DO  380  K = 1,2 
TEMP(K,J)  = TEMP(K,J+1) 

RATE(K,J)  = RATE(K,J+1) 

SIGT(K,J)  = SIGT(K,J+1) 

SIGR(K,J)  = SIGRCK,J-!-l) 

380  CONTINUE 
C 

C CHECK  NEU  INFORMATION  UHICH  IS  NOU  IN  OLD  POSITION 

C 

GO  TO  360 
390  CONTINUE 
400  CONTINUE 


= GOOD 
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DO  410  I = KMDPlTfl 
410  ID(I)  = I 

IF  (HFILED.GT.6)  LJRITE  (NF ILEB, 420)  KGUHT,H00TP1 
IF  a-lPRINT.GF.3)  URITE  aiPR INT, 420)  IO0UNT,MDPTA 
420  FCRrai  (//M..32'I  DOTO  DISCARDED  00  OUTLIERS  IN  TOILS  OF, 

& 13H  DISTRI0L'TIGM/I4,  IGH  DhTO  LEFT,') 

IF  CNDATfi.LE.O)  STOP 
IF  (NFILEG.GT.b)  LRITE  (NF I LEG, 425) 

IF  (NPRINT.GE.E)  LJR  H'E  (NPR li IT. 425) 

425  FORMAT  (/22H  OUTPUT  REMO  IN  IMG  DATA/) 

IF  (NFILEG.GT.b)  L'RITE  (t  IF  I LEG,  350)  NFL  AG  1 
IF  (NPRIMT.GE.3)  URITE  aiPRINT,350)  NFLAGl 
DO  430  I = I.NThTh 
IF  ( INDATA. EO.0) GO  TO  426 

IF  (NFILEG.GT.b)  L'RITE  (NFILE3,3r2)  IDOLD  ( I ) , DOC  ( I ) , DE  ( I ) 
a ,2(  I)  ,E(  I)  .SIGEC  I)  .SIJT(I) 

IF  (NPRINT.GE.3)  LRITE  (NPRINT,372)  IDOLD ( I ) , DOC ( I ) , DE ( I ) 
a , Z ( I ) , E ( I ) , S IGE ( I ) , SUTC I ) 

GO  TO  438 

426  IF  (NFILEG.GT.b)  IJRITE  (NF1LE3,370)  IDOLD C I ) , MTIME ( I ) , DE(  I ) 
a , 2 ( I ) , E ( I ) , S IGE  ( I ) , (TEMP  (iC.  I ) . RATE  (1C,  I ) . K=  1 , 2) 

IF  (NPRINT.GE.3)  LoRITE  (NPRINT.370)  IDOLD  C I ) . NTIME ( I ) , DE ( I ) 
a ,Z(I),E(I),SIGE(I),  (TEMPdC,  I), RATE (K,  I),K=1,2) 

430  CONTINUE 
C 

C BEGIN  AGAIN  IF  OUTLIERS  HAVE  BEEN  DISCARDED 

C 

IF  (KOUNT.GT.0)  GO  TO  190 

C 

C IF  NO  OUTLIERS  MERE  REJECTED,  CHECK  TO  SEE  IF  TEST  JUST 
C CONCLUDED  UAS  ON  E AND  SIGE  VALUES 

C 

IF  (NSIG.GE. 1)  GO  TO  440 

C 

C NO'J  TEST  ON  E AND  SIGE  VALUES 

C 

NSIG  = 1 
SIGSCL  - 1. 

GO  TO  IS'3 
440  CONTINUE 

C 

C AVERAGE  E VALUES  IN  VARIOUS  MAYS  FOR  FINAL  PASS 
C AND  CALCULATE  CONFIDENCE  LIMITS 

C 

CALL  UTAVER  (E,STGE,NDATA,UTEAVE,SIGUTE,EAVE,E3IG) 

C 

C OUTPUT  RESULTS  ON  FILE  FOR  SUBSEQUENT  PROCESSING 

C . 

URITE  (MTTYO.4S0)  NFILEA 

460  FORMAT  (/7H  FILE  =..  I4.,26H  = IS  FOR  TRANSMISSION  OF  / 
a 45H  PROCESSED  E/SIGMA  E DATA  TO  SUBSEQUENT  STEPS/) 
l.JRITE  (NFILEA,  120)  NTITLE 
120  FORMAT (32A2/32A2) 

URITE  (NFILEA, 470)  UTEAVE,3IGUTE,EAVE,ESIG,NDATA 
470  FORMAT  (4F10.3,I5) 

IF  (INDATA. EG. 3)  URITE  (MFILEA,4S3) 
a (NTIME(I),E(I),SIGE(I), (TEMP(J, I),SIGT(J, 1),RAT 
a E(J, I) ,SIGR(J, I) , J = 1,2), IDOLD(I), I = 1,NDATA) 

480  FORMAT  ( I5,2F7.3,F7. 1,F4. 1,2F6.3,F7. 1,F4. 1,2F5.3, 15) 

IF  (INDATA.GT.0)  URITE  (NFILEA, 435) 
a (IDOLD( I) ,E(  I) ,SIGE(I) ,DOC( I) ,SUT( I) , I = 1,NDATA) 

485  FORMAT  ( I5.3F10.2,F15.2) 

END  FILE  NFILEA 

IF  (NFILEB.GT.6)  URITE  (NFILEB,490)  MDATA, NFILEA 
IF  (NPRINT.GE.3)  URITE  (HPR IMT,. 498)  NDATA, NFILEA  ' 

490  FORMAT  (/I4,23H  DATA  URITTEN  ON  FILE  =,I4,2H  =/) 


D41 


c 

C GET  COEFFICIENTS  FOR  LINERR  PLOT 
C USE  E ftND  SIGE  AS  TEMPORARY  STORAGE  ARRAYS 

C 

CALL  REGRES  (Z,DE,DEPROB,Nr'ATA..  1,M.  1,E,AZC  1)  ,AZ(2) 
8.  ,SIGA2(n,SIGAZ(2),R,r:riUL,Ci-;iSQR,TEST) 


c 

C USE  4 TERM  POLYNOMINAL  TO  OBTAIN  WEIGHTED  FIT  OF  DE  TO  Z 

C 


CALL  REGRES  (Z,DE.DEFR03,NDATA,3,M,  1 


iIGAZ(2:> 


..CHISC 


SIGE 

. T 


&,DEZ(2)  ,SIGAZ';  1) 

IF  (NFILES.GT.b)  URITE  MiF ILE3, 453:'  NFLAG 
fc  ,NFLAG2,DEZ(3)  ,NFLAG2,rEZ':4j  ..NFLAG2.CHI3 


IF  (NPRINT.GE.3)  MRITE 


■PINT, 453) 


8.  ,NFLAG2,DEZ(3)  ,NFLAG2.]jEZ':4)  ,MFLAG2 
450  FORMAT  i;/lH  ,A2, 3H  = .,  F7 . 3..  IH-:-.  F7 . 3, 
& 2H  +,F7.3,  ULT.A2.3H::4;3/22M  REDUCED 
& ' CALCULATED  OVER'. 14, ' POINTS') 

DO  495  I = 1,NDATA 
PLOTYCI, 1)  = DEC!) 

PL0TY(I,2)  = ECI) 

PL0TY(I,3)  = SIGE-;  I) 

DO  495  R = 1,3 
PLOTX(I,[Q  = Z(I) 

495  CONTINUE 


,CHI3 
lHn;,A 
CHI  S 


;DEZC 1) 

E5T) 

I ,DEZC 1) ,DEZC2) 
CR,NDATA 

1, DEZC 1) ,DEZC2) 
CR,MDATA 

2,  1H  + ,F7.3,  1ITK,A2 
OUARE  IS,F7.3, 


DO  570  I = 1,3 
570  NPTS(I)  = NDATA 

C 

C PLOT  FINAL  RESULTS 

C 

URITE  (NTTYO,520) 

IF  (NFILEB.GT.b)  URITE  CNFILEB,520)  ■ 

IF  (NPRINT.GE.3)  URITE  i:NPRIMT,520) 

520  FORMAT  (/'  3 CURVES  GENERATED  FOR  DE/Z  PLOTS'/ 

8,  ' Z IS  THE  HORIZONTAL  AiRIS'/'  DE  IS  THE  FIRST  CURVE' 
8.  38H  SECOND  CURVE  IS  LltlEAR  FIT  OF  DE  TO  Z/ 

& 41 H THIRD  CURVE  IS  POLYNOMIAL  FIT  OF  DE  TO  Z/) 


CALL  PLOT  C3,NPT3,PL0TX,PL0TY) 

580  CONTINUE 

IF  (NF1LEB.GT.6)  URITE  (NFILEB,590) 

IF  (NPRINT.GE.3)  URITE  (NPRINT,593) 

590  FORMAT  (//12H  A = DE  V.  Z/2SH  B = LINEAR  FIT  OF  DE  TO  Z/ 
8.  30H  C = POLYNOMIAL  FIT  OF  DE  TO  Z/14H  JOB  COMPLETED/' 1' ) 

C 

C FINISH  OFF  SAVE  FILE  IN  CASE  OF  PREMATURE  TERMINATION 

C 


600  IF  (NERROR.GT.0)END  FILE  NFILEA 
IF  (NLOOPY.LT.NLOOP)  GO  TO  100 
STOP 
END 


3H>f^':' 
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sflssn 

ACTIV  PROG 
SPORT 
STRGT  16 

C >H>X>H>K>«>{<>)oK>J?>lJ>K>K>f;>k>};>t«>X>toH>H>K>k>K>K>f«K>H>l»K>t»K.>|!>t:»o)oio(«K>K>fotc>K>k>!<Mo|ot:>K>!<.'ioKHoK>lot»f!>K>k>l< 

C 

SUBROUT  I NE  ACT  I V ( E , S I GE , TEflP  1 , TEMP2 , S I GT 1 , S I GT2 
S<,  TREAD  1 , TREAD2 , S I GTR 1 , S IGTR2 
& , RATE  1 , RATE2 , S IGR 1 , S I GR2 , AT, MERROR ) 

C 

C SUBROUTINE  TO  CALCULATE  ACTIVATION  ENERGY  FROM  TEnPERATURE  AND 
C RATE  DATA 
C 

C XoloK  FOR  A SINGLE  E VALUE  X^xok 
C 

C E = ACTIVATION  ENERGY 

C SIGE  = STANDARD  DEVIATION  OF  E 
C IE  = ORDINAL  NUhSER  OF  E IN  LIST  OF  E VALUES 

C TEMPI  = FIRST  TEMPERATURE  UN  DEGREES  K) 

C TEMP2  = SECOND  TEMPERATURE 

C SIGTl,  SIGT2,  = STANDARD  DEVIATIONS  OF  TEMPI  AND  TEMP2 

C TREAD  = VALUES  OF  CORRESPONDING  THERMOCOUPLE  EMF'S  IN  MICROVOLTS 

C VTEMP  = CONTRIBUTION  OF  TEMP  TO  VARIANCE  OF  E 

C 

C RATEl,  RATE2,  SIGRl,  SIGR2  AND  VRATE  ARE  SIMILAR  VALUES  FOR  RATES 

C AT  = POLYNOMIAL  COEFFICIENTS  FOR  EMF  TO  DEGREE  K CONVERSION 

C NERROR  = ERROR  INDICATOR 

C 
C 

C NEEDS  THE  'FOLLOUING  COMMON  BLOCK  AND  FUNCTION: 

C COMMON  /lO/  NTTYI,NTTYO, IN,NPRINT,NFILEA,NFILEB 

C TDEGAB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI ,DUMP( 1 ) ) , (MTTYO, DUMP (2) ) , ( IN, DUMP (3)) 

• & , (NPRIHT,DUMP(4)), (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (6) ) 

C 

DIMENSION  TEMP(2) ,S IGTC2) , TREAD (2) , S IGTR (2) , RATE (2) , S IGR (2) , AT(4) 
C 

c 

R = 1.987/1000. 


R2  = RX:X: 

2 

NERROR  = 

0 

TREAD(l) 

= TREAD  1 

TREAD(2) 

= TREAD2 

SIGTR(l) 

= SIGTRl 

SIGTR(2) 

= SIGTR2 

RATE ( 1 ) 

= RATEl 

RATE (2) 

= RATE2 

SIGR(l) 

= SIGRl 

SIGR(2) 

= SIGR2 

DO  30  J 

= 1,2 

C 

C GET  TEMPERATURE  IN  DEGREES  KELVIN,  TREAD  IS  IN  MICROVOLTS 
C 

TEMP(J)  = TDEGAB  (TREAD (J) , AT) 

T = TREAD (J)+S IGTR (J) 

S = TDEGAB (T, AT) 

SIGT(J)  = S-TEMP(J) 

IF  (TEMP(J) .LT. 1.)  GO  TO  40 
IF  (ABS(RATE(J)) .LT. 1.E-0S)  GO  TO  40 
30  CONTINUE 
C 

C GET  ACTIVATION  ENERGY 
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c 

TDIFF  = TEMP (2) -TEMP < 1) 

TDIFF  = FlBS(TDIFF) 

IF  (TDIFF.lt. l.E-01)  GO  TO  40 
■ T = RATE (2) /RATE ( n 

IF  (T.LT. 1 .E-06)  GO  TO  40 
IF  (T.GT. l.E+06)  GO  TO  40 
IF  (T.LT. 1.)  T = l./T 
RTEMP  = ALOG(T) 

ETEMP  = TEMP  (2)  »:TEMP  ( 1) /TDIFF 
E = R>t;RTEMPM€TEMP 

IF  (ABS(E) .GT.200. .OR.ABS(E) .LT. 1.)  GO  TO  40 
GO  TO  90 
C 

C DISCARD  THIS  POINT  FOR  VARIOUS  POSSIBLE  REASONS 
C 

40  CONTINUE 

IF  (NPRINT.GE.3)  URITE  (NPR INT, 50) IE 
IF  (NFILEB.GT.b)  URJTE  (NF ILEB..  50)  IE 
50  FORMAT  ('  ACT.  ENERGY  NUMBER', 13,'  DISCARDED') 

NERROR  = 8 
RETURN 

90  CONTINUE 

E2  = E>ti>::2 

C 

C GET  ASSOCIATED  SIGMA 
C 1)  FROM  RATES 
C 

VRATE  = ((SIGR(2)/RATE(2))>i::'K2+CSIGRCl)/RATE(l))>K>l^2)>}€ 

8.2/RTEMP>i:>i-'2 

C 

C 2)  FROM  TEMPERATURES 
C 

VTEMP  = ((SIGT(1)/TEMP(1)  W)>i<>K2+(SIGTC2)/TEMP(2)«) 
&»c>!<2)>!€2X€TEMP>i:>i<2 

C 

C COMPUTE  TOTAL  SIGMA  ON  E 
C 

SIGE  = SQRT(VRATEH-VTEMP) 

C 

C OUTPUT  INITIAL  AND  CALCULATED  VALUES 
C 

TEMP ( i ) = TEMP ( 1 ) -273 . 1 5 
TEMP (2)  = TEMP (2) -273. 15 
IF  (NPRINT.lt. 3) GO  TO  200 
WRITE  (NPRINT,52) 

52  FORMAT  (/'  ACTIVATION  ENERGY  FROM  = ACTIVE  = ' 

8./6X, 'E',2X, 'SIG  E' ,2X, 'FACTOR  OR  RATE  '/) 

URITE  (NPRINT, 100)E,SIGE,  (TEMP(J),SIGT(J),RATE(J).SIGRCJ),J  = 1,2) 
100  FORMAT  (2F7.3,F8.2,FS.2,2E13.4/14X,F8.2,F6.2,2E13.4) 

110  CONTINUE 

C 

C 

120  URITE  (NPRINT, 130) 

130  FORMAT  (/'  CONTRIBUTION  OF  RATE  AND  TEMPERATURE  TO  VARIANCE' 

8c, '(  = SIGEX::-i;2)'/'  RATE  TEMP'/) 

• URITE  (NPRINT, 140)  VRATE, VTEMP 
140  FORMAT  (2E12.3) 

200  IF  (NF ILEB. LE.b) RETURN 
URITE  (NF ILEB, 52) 

URITE  (NFILEEI,  100)E,SIGE,  (TEMP(J),SIGT(J),RATE(J),SIGR(J),J  = 1,2) 
URITE  (NFILEB,130) 

URITE  (NFILEB, 140) VRATE, VTEMP 
TEMPI  = TEMP(l) 

TEMP2  = TEMP (2) 

SIGTl  = SIGT(l) 

SIGT2  = SIGT(2) 

RETURN 

END 
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$ASSM 
ftVSDN  PROG 
SPORT 
STRGT  16 

Q 3X5MoM<)<<>MoMoMojoK5K>K>K)McK>MoMotofo|oMo|o!C!ofo(o}oK5MoMofoMoMoMc)|oMoK>Jo|oK5|oK>M< 

c 

SUBROUTINE  AVSDN(ftVE,SD,Q,HVftL) 

C 

C SUBROUTINE  TO  CfiLCULftTE  fl^/ERflGE  AND  STANDARD  DEVIATION 
C AVE  = AVERAGE  VALUE 
C Q = INPUT  VALUES 

.C  SD  = STANDARD  DEVIATION  OF  POPULATION  OF  Q 
C NVAL  = NUMBER  OF  VALUES 

C 

C NEEDS  NO  COMMON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES 

C 

C RETURNS  SD  = l.E+06  IF  ONLY  ONE  VALUE  IS  AVAILABLE 

C 

c 

DIMENSION  Q(NVAL) 

C 

C CALCULATE  AVERAGE 

C 

AVE=0. 

DO  10  1=1, NVAL 
10  AVE=AVE+Q(I) 

AVE =AVE/FLOAT( NVAL) 

IFCNVAL.GT. 1)  GO  TO  50 
SD=1.0E+06 
RETURN 
50  SD=0. 

C 

C CALCULATE  STANDARD  DEVIATION 

C 

DO  43  1=1, NVAL 
40  SD=SD+(AVE-Q(D)  W 

SD=SQRT(SD/(FLOAT(NVAL-l))) 

RETURN 

END 
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SfiSSM 
CHISQ  PROG 
SPORT 
STRGT  16 


SUBROUTINE  CHISDCP,SP,XSQ.N) 

J!oK3Wo(oM<><<>Mo!o(oK>to}<>k>K>K>io(<>fo}oloK?(c4;>t:>WoK5to*otoMo|ot»K5fotok>K5MoK>K>K>K>}ofoM«^^ 

SUBROUTINE  TO  CALCULATE  REDUCED  CHI  SQUARE  FOR  N INPUT  VALUES. 
P = INPUT  VALUES 

SP  = STANDARD  DEVIATIONS  OF  P VALUES 
XSQ  = CHI-SQUARE  VALUE  FOR  P AND  SP  ARRAYS 
N = NUMBER  OF  P VALUES 

NEEDS  NO  COMMON  BLOCKS,  FUNCTIONS  OR  SUBROUTINES 

DIMENSION  P(N),SP(N) 
fiVE=0. 

CALCULATE  AVERAGE 

DO  10  1=1, N 
10  AVE=AVE+P(I) 

AVE=AVE/FLOAT(N) 

XSQ=0. 

IFCN.LE. 1) RETURN 
CALCULATE  CHI  SQUARE 
DO  20  1=1, N 

20  XSQ=XSQ+((AV'E-P(n)/SP(I))>»o!-'2 

XS0=X3Q/FL0ATCN-1) 

RETURN 

END 
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$fiSSM 

DATARD  PROG 
$FORT 
STRGT  16 

c 

SUBROUTINE  DATARD (SAVER, HTITLE, NLOOPY, ITOLD. E, S IGE, SUT, DOC,NTIME 
8.  , TREAD, SIGT,RATE,SIGR,  ID,  INDATA, NDATA, NERROR) 

C 

c 

C NEEDS  THE  FOLLOUING  SUBROUTINES  AND  FUNCTIONS: 

C ACT IV 

C EREAD 

C READ  IN 

C READX 

C AND  COMMON  /lO/  NTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP ( 1 )) , (NTTYO,  DUMP  (2)  ) , ( IN, DUr-P (3) ) 

8.  , (NPR  INT,  DUMP  (4) ) , (NF  ILEA,  DUMP  (5) ) , (NF  ILEB,  DUMP  (6) ) 

C 

DIMENSION  NTITLE(64) ,NTIME(50) ,TREAD(2,50) ,RATE(2,50) 

DIMENSION  TEMP(2,5G) ,SIGT(2,50),SIGR(2,5O) ,E(56) ,SIGE(50) 
DIMENSION  NSTAR(32)  ,SLIT(50)  ,DOC(50) 

DIMENSION  AT(4) , IDOLD(50) , ID (58) , VRATE (50) , VTEMP (50) 

NLOOPY  = NLOOPY+1 
C 

c 

URITE  (NTTYO, 1 18)  NLOOPY 
110  FORMAT  (12H  FILE  NUMBER, 13) 

C 

C ■ READ  AND  URITE  TITLE  OF  INPUT  FILE 

C 

READ  (IN, 120)  NTITLE 
120  FORMAT  (32A2/32A2) 

DO  130  I = 1,32 
130  NSTAR(I)  = 2H^;:mc 

IF  (NFILEB.GT.6)  GO  TO  131 
URITE  (NFILEB, 140)NTITLE 
URITE  (NFILEB, SO) SAVER 

90  FORMAT(/'  CHANCE  OF  URONGLY  REJECTING  RANDOMLY  PLACED  EXTREMUM' 

30  FORMAT(/'  PUT  PROCESSED  DATA  ON  FILE', 13) 

131  IF  (NPRINT.lt. 3)  RETURN 
URITE  (NPRINT, 120)  NSTAR 
URITE  (NPRINT,  14.0) 

140  FORMAT  (25H  TITLE  OF  INPUT  FILE  IS  ://) 

URITE  (NPRINT, 120)  NTITLE 
URITE  (NP.tiNT,  150) 

150  FORMAT  (//) 

URITE  (NPRINT, 120)  NSTAR 
URITE  (NPRINT, 159) 

URITE  (NPR INT, 90)  SAVER 
URITE  (NPRINT, 30)  NFILEA 
C 

C READ  IN  DATA 

C 

151  .IF  ( INDATA. GT.O)GO  TO  85 

C 

C GET  THERMOCOUPLE  COEFFICIENTS,  READ  IN  DATA 

C 

CALL  THMCPL  (AT) 

CALL  READIN  (NTIME, TREAD, SIGT, RATE, SIGR, ID, NDATA) 
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CflLCULflTE  E ACT.  AND  ASSOCIATED  SIGMA 

DO  170  I = l.HDATA 
IDOLD(I)  = ID(I) 

CALL  ACTIV  (E,SIGE,TEMPn,  n,TEMP(2.  D.SlGTd,  n.SIGTC2.I) 

8.  ,TREAD(1,  I), TREAD  1:2,  D.SIGTCl.  I),SIGT(2.  D.VTEMP 
8.  ,RATE(1,  n,RATEC2.  I),SIGR(1.  D,SIGRC2,  I),VRATE 
8.  ,AT,NERR0R) 

IF  (NERROR.GT.O)  RETURN 
170  CONTINUE 
RETURN 

READ  IN  E VALUES 

85  IF  (INDATA. ED. n GO  TO  88 
URITE  (NTTY0.S9) 

''89  FORMAT  (/'  READ  INITIAL  AND  FINAL  SAMPLE  UEIGHTS.  FREE  FORMAT') 
UINITL  = READX  (lU.NERRGR.S,  IN,  NTTr'O.  lEOF) 

UFINAL  = READX  ( lU, NERROR,  1 , IH,-NTTY0,  lEOF) 

SAMPUT  = LJINITL-UFINAL 

IF  (NFILEB.GT.6)  UR  I7E  CNF  ILEB,  3 1 ) UIN ITL,  IJF  INAL 
IF  (NPRINT.GE.3)  UR ITE (NPR INT, 8 1 ) UIM ITL, UF INAL 
81  FORMATC/'  INITIAL  AND  FINAL  UEIGHTS  READ  FROM  INPUT  FILE  AS' 

8.  /2F15.3) 

SET  DIMENSION  STATEMENT  IN  EREAD  VIA  NDATA 
88  NDATA  = 53 

CALL  EREAD  (ID, E,S!GE,SUT, DOC, NDATA, INDATA, NERROR) 

IF  (IHDATA.EQ. 1)  GO  TO  87 
DO  86  I = 1, NDATA 

86  DOC(I)  = ((UINI7L-SUT(I))/SAMPLJT)>i:109. 

87  DO  180  I = 1, NDATA 
180  IDOLD(I)=ID(I) 

OUTPUT  UHATEVER  UAS  INPUT 

IF  (NFILEB.GT.6)  URITE  (NFILEB,100) 

IF  (NPRINT.GE.3)  URITE  (NFRINT, 180) 

100  F0RMAT(/'  NUMBER', SX,'E',5X,'SIG  E' , 4X, ' D . 0 . C . ' , I2X, ' SUT'/) 

IF  (NFILEB.GT.6)  URITE  (NF ILEB, 2 10) . ( IDOLD ( I ) , E C I ) , $ IGE ( I ) , DOC ( I ) 
8.  ,SUT(  I) , I = 1,NDATA) 

IF  (NPRINT.GE.3)  URITE  (NPRINT,210)  ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I ) 
8.  ,SUT(I),  1 = 1, NDATA) 

210  FORMAT(I7,3F10.2,F15.2) 

RETURN 

END 
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SflSSM 

eread  prog 

$FORT 
STRGT  16 

Q ,^c4o»ofo^oMoMoK>toK>^^MC)Mo^oK^MoK>Mo^o}oMoK5K>^o^oMoMoMoK^ 

c 

SUBROUTINE  EREAD(IDOLD,E,SIGE,SUT,DOC,NDATA, INDATfi, NERROR) 

C 

0 Jjo^oK^oK>MoMc^oloH>K>K>M<>MoK>K>tofoK)^:>K>K>K>K>Koto!<>^oMoK>K5k>«>loK^ 

c 

C SUBROUTINE  TO  READ  IN  E/SIGE  FILE  FROM  TGRUNF 

C NEEDS  COMMON  /lO/  NTrn,NTTYO,  IN,NPRINT,NFILEA.NFILEB 

C AND  FUt^CTION  READX 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUTP (2) ) , ( IN, DUMP (3) ) 

• 8.  , (NPRINT,DUMP(4) ) , (NF ILEA. DUMP (5) ) . (NF  ILEB, DUMP (5) ) 

C 

DIMENSION  ID0LD(NDATA).E(NDATA).SIGE(NDATA).3UT(NDATR) 
&.DOC(NDATA) 

C 

c NDATA  IS  INITIALISED  NEAR  DIMENSION  STATEMENT  IN  MAIN  PROGRAM 

C 

NDO  = NDATA 
NDATA  = 0 

C 

C READ  IN  E/SIG  E FILE  (5  RECORDS  PER  ACTIVATION  ENERGY) 

C 

DO  10  I = l.NDO 

J = READX  (IU,NERRCR,3, IN.NTTYO, lEOF) 

C 

C TEST  FOR  EOF 

C 

IF  (IEOF.GT.0)GO  TO  20 
NDATA  = NDATA+1 
IDOLD (NDATA)  = I 

E(NDATA)  = READX  ( IIJ.NERROR.  1 . IN.NTTYO.  lEOF) 

SIGE(NDATA)  = READX  ( lU. NERROR. 1 . IN. NTTYO. lEOF) 

A = READX  ( !U, NERROR, 1. IN.NTTYO, lEOF) 

SUT(NDATA)  = READX  ( lU.NERROR. 1 , IN.NTTYO, lEOF) 

IF  ( INDATA. EQ. 1) DOC (NDATA)  = READX  ( lU. NERROR. 1 . IN.NTTYO. lECF) 
C 

C SPACE  OVER  REST  OF  RECORDS  FOR  THIS  ACTIVATION  ENERGY 

C 

DO  15  K = 1.4 

15  A » READX  ( lU.NERROR. 3. IN.NTTYO, lEOF) 

10  CONTINUE 
20  CONTINUE 
RETURN 
END 
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ffftSSM 
FCTN  PROG 
$FORT 
$TRGT  16 


3(oMot»Mojc>(C)McHo(oKJK>K5iofo|oMoK>Mo(c>ioMoK>Mc>lcMoto!o|cM<5McloK^ 


FUNCTION  FCTN  (X, I, J, JTERnS,NPTS) 


3foMoJ<>MoMoK5!o»otoK><ok>K>l<>toK>foiotoK>!clo}cloMok>)<>K>Mo>K>k>K:^<>K>»ot;>K>i<>toioM<>fo^ 


FUNCTION  TO  CALCULATE  FITTED  VALUES  FOR  REGRES  SUBROUTINE 


DIMENSION  X(NPTS),JTERMS(J) 

JEXP=JTERM3(J) 

FCTN=X(I)>t^^JEXP 

RETURN 

END 
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S4^ssn 

r^TIHV  PROG 
$fort 
STRGT  16 

Q 5MoMoMotokMc+ofo*oMoMoMoK5K>K>»oMoMoMo«oMciOH>K5MoMoMctoMclc>toMotc^^ 

c 

SUBROUTINE  MATINV  (flRR<^Y,MORDER,DET) 

C 

Q jK3MoK5ioMoK>!otc>oMoK^>loK>K>-.'>i<V>(ot:>K:>k>r4c^:>K>toKHoK5»oMok>k>K>toK>K>K:K>K^^ 

c SUBROUTINE  FOR  MATRIX  INVERSION 

C 

DOUBLE  PRECISION  ARRAY, AMAX,SA\/E 
dimension  ARRAY(5,5)  , IK>:5) , JK(5) 

DET=1. 

DO  190  K=1,N0RDER 

C 

'c  FIND  LARGEST  ELEMENT  ARRAY(I.J)  IN  REST  OF  MATRIX 

C 

QMC»y=P1 

10  DO  30  I=K,NCRDER 

DO  30  J=K,NORDER 

IF  (DA3S(AMAX)-DABSCARRAY(I, J)))  20,20,30 
20  AMAX=ARRAY(I,J) 

IK(K)=I 

JK(K)=J 

■ 30  CONTINUE 

C 

c INTERCHANGE  ROUS  AND  COLUMNS  TO  PUT  AMAX  IN  ARRAY(K,K) 

C 

IF  (AMAX)  50,40,50 
40  DET=0. 

GO  TO  2E0 
50  I=IK(K) 

IF  (I-K)  10,80,60 
60  DO  70  J=1,N0RDER 

SAVE=ARRAY(K,  J) 

ARRAY(K,J)=ARRAYCI,J) 

70  ARRAY(I.J)=-SAVE 

80  J«=JK(K) 

IF  (J-K)  10,110,90 
90  DO  100  I=1,M0RDER 

SAVE=ARRAY(I,K) 

ARRAYC I , K) =ARRAY( I , J) 

100  ARRAY(I,J)=-SAVE 

C 

C ACCUMULATE  ELEMENTS  OF  INVERSE  MATRIX 

C 

110  DO  130  I=1,N0RDER 

IF  (1-K)  120,130,120 

120  ARRAY(I,K)=-ARRAY(I,K)/AMAX 

130  CONTINUE 

DO  160  I=1,N0RDER 

DO  160  J=1,N0RDER 
IF  (I-K)  140,160,140 
140  IF  (J-K)  150,160.150 

i 50  ARRAY(  I , J ) ^ARRAYC  I , J)  +ARRAY(  I , K) >kARRAY(K,  J) 


160  CONTINUE 

DO  180  J=l,NORDER 

IF  (J-K)  178.180,170 

170  ARRAY  (K.J)=PiRRftY(K,J)/flmX 

180  CONTINUE 

ARRAY<K,K)  = l./AmX 
190  DET=DET>:=AmX 

C 

C RESTORE  ORDERING  OF  MATRIX 

C 


200 


210 

220 

230 


DO  250  L=l,NORDER 
K=NORDER-L+l 
J=IK(K) 

IF  (J-K)  220,220.200 
DO  210  I=l,NORDER 
SAVE=ARRAY(I,K) 

ARRAYC 1 . K ) =-ARRAY( I . J) 
ARRAY(I,J)=SAVE 
I=JK(K) 

IF  (I-K)  250,258.230 
DO  240  J=l,NORDER 
SAVE=ARRAY(K.J) 


ARRAY(K,  J)  =-P.RRAY(  I.  J) 
240  ARRAY(I,J)=SAVE 

250  CONTINUE 

260  RETURN 
END 


SASSM 
PINV  PROG 
SPORT 
STRGT  16 

C 

FUNCTION  PINV  (Q) 

C 

Q :Mc<oMoK)foMoK>K>K>K5K5K^>iofo{oK>toK3<oMoio)<>iJ>|c>}ojo|oM<>(cK>K><<5K>to(<>K>Moio|o!<>k>(ok^^ 

C 

C FUNCTION  TO  CALCULATE  NORMAL  DISTRIBUTION  QUANTILE  FROM  AREA, Q, UNDER 
C DISTRIBUTION  CURVE. Q GIVEN  BY  FILLIBEN.  IN  N3S  TECHNICAL  NOTE  552, PM6 

C 

PINV  = 4.91^(EXP(0. 14>KALOG(Q))-EXPC0.14>f<ALOG(l.-Q))) 

C 

END 
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SASSM 
PLOT  PROG 
SPORT 
$TRGT  16 

Q )MoMol<HoM5{oK5McMoMoK5}ofoMC)K>K5MoMo<>MoMoMoMC>K5fnK>Mc*>)oK5Mci^^ 

c 

SUBROUTINE  PLOT  (JM, IM,X,Y) 

C 

C j(oK^H>K>MoJ<>K>K>to(ot<>K>|ok>K>to(c>K>toi<>KoK>foioK>K5»c^o}oioK)»oMc>M<>4oioloK>^ 

c 

C PLOTTING  SVraOLS  PRE  fl  B C D E F IN  THAT  SEQUENCE. 

C THE  SCALE-DEFINING  POINTS,  SAY,  k0,0)  AND  (.10E+02,  . 10E-03) 

C SHOULD  BE  CONFINED  TO  THE  FIRST  CURVE  ONLY. 

C 

c JM  = NUMBER  OF  CURVES 
C IM(JC)  = NUMBER  OF  POINTS  IN  CURVE  JC 

C (THIS  NUMBER  INCLUDES  ANY  LIMIT  DEFINERS  (FIRST  CURVE  ONLY)) 

C 

C NEEDS  COMMON  BLOCK  /lO/  NTTYI , NTTYO, IN, NPRINT,  NF ILEA,  NF ILEB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI  ,DUMP(  1)  ),  (NTTYO, DUM?(2)  ),( IN,  DU.MP(3)  ) 

8.  , (NPRINT,DUM?(4)) , (NFILEA,DUMP(5)  ) , (NFILEB,D'JMr  (6)  ) 

C 

c 

DIMENSION  X(160,6),Y(100,6), IM(6),P(51),YSC(6),XSC(6),S(6), IL(6) 

C 

INTEGER  R,C,RM1 

C 

DATA  BLANK, DASH, PLUS, S /IH  , 1H-, 1H+, IHA, IHB, IHC, IHD, IHE, IHF/ 

C 

YM  *=  Y(l,l) 

Y0  = Y(l,l) 

XM  •=  X(l,l) 

X0  = X(l,  1) 

DO  40  J = 1,JM 
C 

C FIND  LIMITS  OF  PLOT 

C 

IMM  = IM(J) 

DO  40  I = 1,IMM 
IF  <Y(I,J)  .LT.'-fTI)  GO  TO  10 
YM  = Y(I,J) 

10  IF  (Y(I,J) .GT.Y0)  GO  TO  20 
Y0  “ Y(I,J) 

20  IF  (X(I,J) .LT.XM)  GO  TO  30 
XM  » X(I,J) 

30  IF  (X(I,J) .GT.X0)  GO  TO  40 
X0  - X(I,J) 

40  CONTINUE 

DYM  = YM-Y0 
DXM  » XM-X0 
YSC(l)  = YM 

XSC(l)  «=  X0 

DO  50  L = 2,6 

50  YSC(L)  YSC(L-l)-DYrV5. 
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60 


DO  60  L » 2.6 
XSC(L)  = XSC(L-l)+DXn>^. 

DO  70  J = l.JM 
IMl  = 

DO  70  I = i.im 

c 

C SORT  IN  DECREASING  Y 

C 

IPl  = I+l 
IMM  = iri(j) 

DO  70  II  = IPl.im 

IF  (Y(I I.J) .LT.Y(I.J))  GO  TO  70 

TEMP  = Y(I.J) 

Y(I.J)  = Y(II.J) 

Y(II.J)  = TEMP 
TEMP  = X(I.J) 

C 

C KEEP  X AND  Y PAIRED 

C 

xa.j)  = x(ii.j) 

X(II.J)  = TEMP 
70  CONTINUE 
R = 0 
C 

C START  PLOT 
C 

L “ 0 


DO  80 

J = l.JM 

60 

ILCJ) 

= 0 

90 

R = R+1 

RMl  = 

R-1 

ARl  = 

(RMl-.5)/50. 

YQl  = 

YM-AR1>XDYM 

AR2  = 

(RMl+.5)/50. 

YQ2  = 

YM-AR2H.-DYM 

DO  100  C = 1.51 

100 

P(C) 

= BLANK 

C 

C BLANK  THE 

LINE 

C 

J = JM 

110  I = IL(J) 

120  I = I+l 

IF  (I.GT.IM(J))  GO  TO  130 
IF  (Y(I, J) .GT.YQl)  GO  TO  120 
IF  (Y(I. J) .LT.YQ2)  GO  TO  130 
C = 50.0^<((X(I,J)-X0)/DXM)+1.5 
P(C)  = S(J) 

GO  TO  120 
130  IL(J)  = I-l 
J = J-1 

IF  (J)  140.140.110 

140  IF  (MOD(RMl.S) .EQ.0)  GO  TO  160 
URITE  (NPRINT. 150)  PLUS.P 
GO  TO  190 

150  FORMAT  (IH  ,14X,A1.51A1) 
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160  IF  (MODCRMl. 10) .EQ=0)  GO  TO  170 
URITE  (NPRINT, 150)  DPSH,P 
GO  TO  199 
170  L = L+1 

URITE  (NPRINT, 180)  YSC(L),DASH,P 

C 

C PRINT  ROU  R 
C 

180  FORMPT  (IH  .E13.5, lX,ftl,51fil) 

190  IF  (R.LT.51)  GO  TO  90 
DO  210  C = 1,51 
C 

C FORM  X fiXIS 
C 

ICMl  = C-1 

IF  (MODdCMl,  10)  .NE.0)  GO  TO  200 
P(C)  = PLUS 
GO  TO  210 
200  P(C)  = DftSH 
210  CONTINUE 

URITE  (NPRINT,220)  P 
C 

C PRINT  X AXIS 
C 

220  FORMAT  <1H  ,15X,51AI) 

URITE  (NPRINT, 230)  XSC 
230  FORMAT  (11X,6E10.4) 

RETURN 

END 
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SftSSM 
PNORM  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  PNORM  (X,NDOTft) 

C 

c 

C SUBROUTINE  TO  COLCULOTE  NORMRL  DEVIATE  FROM  AREA  OF 
C NORMAL  PRC'BABILITY  DISTRIBUTION 

C SEE  OMNITAB  2 MANUAL, MBS  TECHNICAL  NOTE  552, ( 197 1) P 146 . 

C 

DIMENSION  X(NDATA) 

C 

PI  = 3. 1415927 
FDATA  = NDATA 
DO  10  I = 1, NDATA 
FI  = I 

XI  = (FI-PI/8.)/(FDATA+l-PI/4.) 

X(I)  = PINV(XI) 

10  CONTINUE 

C 

C CHANGE  XI  FOR  FIRST  AND  LAST  ITEMS  IF  NDATA. LE. 10 

C 

IF  (NDATA. GT. 10)  RETURN 
XI  = (3.-l.)/(3.>i:FI  + l.) 

X(l)  *=  PINV(XI) 

X(NDATA)  = -X(l) 

RETURN 

END 
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SftSSM 

PRIMES  PROG 
SPORT 
STRGT  16 

c 

SUBROUT I NE  PR  I MES ( HLOOP Y, NDhTO , NLOOP , SAVER , SAVE , I ND ATA ) 

C 

c 

C SUBROUTINE  TO  INITIALISE  TG  ACTIVATION  ENERGY  ASSESSMENT 
C PROGRAM 

C 

C NEEDS  SUBROUTINE  READY 

C AND  COMMON  BLGCICS  /lO/  HTTYI , NTTYO,  IN,  NPR INT,  NF  ILEA,  NF ILEB 
C AND  /REGRS/  M(5) ,RC5) , VFITC250) 

C 

COMMON  DUMP  ( 275 ;i 

EQUIVALENCE  (NT7YI , DUMP  U ))  , CNTTYO,  DUMP  (2) ) . CIM.DL'M^CS)) 

8,  , (NPRINT,DlJMPi;4) ) , aiFILEA,DUMPC5) ) , CNF  ILE3, D'Jr;?  C5) ) 

DIMENSION  M(5:>  ,R(5)  .YFITC250) 

, ^ EQUIVALENCE  CMC  1) , DUMP ( 10) ) , (R C 1 ) , DUMP ( 15) ) , (YF ITC 1 ) , DUMP C20) ) 

NLOOPY  = 0 
NDATA  = 50 

C 

C INITIALISE  FILES,  ETC. 

C 

NTTYI  = 4 
NTTYO  = 5 
IN  = ? 

NPRINT  = 6 
NFILEA  = 8 
NFILEB  = 9 
DO  5 I = 1,5 
5 MCI)  = I 
C 
C 

URITE  (NTTYO, 10)  IN 
10  FORMAT  (/'  TGACTE  PROGRAM' 

8.  /'READ  INPUT  DATA  FROM  FILE',  13) 

URITE  (NTTYO, 20)  Nr PINT 
20  FORMAT  (5H  FILE,I4,14H  IS  FOR  OUTPUT)  ' 

URITE  (NTTYO,  30)  rjpiLEA 

30  FORMAT  (27H  PUT  PROCESSED  DATA  ON  FILE, 14) 

URITE  (NTTYO, 43) 

40  FORMAT  ('  GIVE  NUMBER  OF  FILES  TO  EXAMINE  (IN  FREE  FORMAT)') 

NLOOP  = READY  ( IIJ,  NERROR,  3,  NTTYI , NTTYO,  lEOF) 

URITE  (NTTYO,  60)  NLOOP 
60  FORMAT  ('  EXAMINE', 14, ' FILES') 

URITE  (NTTYO, 70) 

70  FORMAT  (43H  GIVE  CHANCE  OF  REJECTING  EXTREME  VALUE  IF  / 

8.  31H  FLUCTUATIONS  ARE  PURELY  RAND0M/27H  (3.31  TO  3.43,  ZER0=3.  10) 

8./12H  FREE  FORMAT) 

SAVER  = READY  ( I U, NERROR, 3, NTTYI , NTTYO, I EOF) 

IF  (SAVER.lt. 1 .E-05)  SAVER  =0.13 
URITE  (NTTYO, 90)  SAVER 

90  FORMAT  (56H  CHANCE  OF  URONGLY  REJECTING  RANDOMLY  PLACED  EXTREDrUM  I 
6iS,  Fb . 2) 

SAVE  = 1. -SAVER 
URITE  (NTTYO, S3) 

80  FORMAT  (/'  GIVE  0 FOR  RATE  DATA  INPUT' 

8./'  1 FOR  E/SIG  E ItlPUT  (OUTPUT  OF  TGRUNF)' 

8./'  UITH  DEGREES  OF  CONVERSION  IN  FILE' 

8./'  2 FOR  E/SIG  E INPUT  UITH  D.G.C.  TO  BE  CALCULATED') 

INDATA  = READY  ( lU, NERROR, 3, NTTYI , NTTYO, lEOF) 

100  CONTINUE 
RETURN 
END 
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SPISSM 

PR0BP2  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  PR0EP2  (DE,Z,E,SIGE,EPlVE,  ID,NDPTft) 

C 

c 

C SUBROUTINE  TO  CPLCULP7E  DE  OUPlNTITIES,  ORDER  THEM  AND 

C ASSIGN  ASSOCIATED  Z VALUES  FROM  ORDER  STATISTICS  ASSUMING 
C A NORMAL  DISTRIBUTION. . 

C 

C NEEDS  SUBROUTINES: 

C PNORM 

C S0RT4 

C 

■ DIMENSION  DE(NDATA),Z(NDATA),E(NDATA),SIGECNDATA),  ID(NDATA) 

C 

DO  10  I = 1,NDATA 
10  DE(I)  = (E(I)-EAVE)/SIGE(I) 

C 

C ORDER  ON  DE 

C MAKE  ID  INTEGER  IN  SORT4  SUBROUTINE 

C 

CALL  SORT4  (DE, ID. NDATA) 

C 

C CALCULATE  NORMAL  DISTRIBUTION  QUANTILES 

C 

CALL  PNORM  (Z.NDATA) 

RETURN 

END 


SASSM 
PNORM  PROG 
SPORT 
STRGT  16 

C 

SUBROUTINE  PNORM  (X.NDATA) 


C 

c 

C SUBROUTINE  TO  CALCULATE  NORMAL  DEVIATE  FROM  AREA  OF 
C NORMAL  PROBABILITY  DISTRIBUTION 

C SEE  OMNI TAB  2 MANUAL, NBS  TECHNICAL  NOTE  552. ( 1971 ) P146 

C 


DIMENSION  X(NDATA) 

C 


PI  “ 3.141592? 

FDATA  = NDATA 
DO  10  I = 1, NDATA 
FI  = I 

XI  = (FI-PI/S.)/(FDATA+1-PI/4.) 

X(I)  = PINV(XI) 

10  CONTINUE 

c 

C CHANGE  XI  FOR  FIRST  AND  LAST  ITEMS  IF  NDATA. LE. 10 

C 

IF  (NDATA. GT. 10)  RETURN 
XI  = <3.-1. 1/CS.^XFI+I. ) 

X(l)  = PINV(XI) 

X(NDATA)  - -X(l) 

RETURN 

END 


t 
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sflssri 

READ  IN  PROG 
SPORT 
STRGT  16 

Q )K5(oM<;<oMoK>K5(otoMoMOK5(ojoK5K5MoMc^oMc^oWc<otoMc>K5Mc>MOK>K:MoloMofc4^^ 

c 

SUBROUTINE  READINCNTIME, TREAD. SIGT,RATE,SIGR, ID.NDATA) 

C 

v.T'  /^yT\  ✓!  v/T^^JN  wjV^j\^S  y^wT\x|  > /f\  4 /T' [V.^> 

c 

C SUBROUTINE  TO  READ  RAIJ  DATA 

C NEEDS  COMMON  /lO/  NTTYI .NTTYO, IN.NPRINT.NFILEA.NFILEB 
C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP ( 1) ) . (NTTYO, DUMP (2) ).( IN, DUMP (3) ) 

& , (NPRINT,DUMP(4)), (NFILEA,DUMP(5)), CNF ILEB, DUMP (6) ) 

C 

DIMENSION  NTIME(50),TREAD(2,50),SIGT(2,50),RATE(2,50),SIGR(2,50), 
8.  ID(50) 

C 

c 

IF  (NFILEB.GT.6)  URITE  (NFILEB.10) 

IF  (NPRINT.GE.3)  URITE  (NPRINT, 10) 

10  FORMAT  (46H  TI^E  THCPL  SIG  THCPL  RATE, 

8,  12H  SIG  RATE/) 

NERROR  = 0 
NDATA  = 0 
DO  50  I = 1,50 

NTIME(I)  = READXC lU, NERROR, 3. IN, NTTYO. lECF) 

TREAD (1,1)  = READX( lU, NERROR. 1, IN, NTTYO, lEOF) 

SIGTd.I)  = READX(  IIJ. NERROR.  1,  IN, NTTYO,  lECF) 

RATECl.I)  = READX( I U, NERROR. 1, IN. NTTYO. T EOF) 

SIGRd.I)  = READXdU.NERROR.  I.  IN.NTTt’O,  lEOF) 

TREAD(2,I)  = READXdU.NERROR.  1.  IN. NTTYO,  lECF) 

SIGT(2,I)  = READXdU.NERROR.  1.  IN. NTT/O.  lEOF) 

RATE(2.I)  = READX( lU, NERROR, 1, IN. NTTYO, lECF) 

SIGR(2,I)  = READX(  ILJ, NERROR,  1.  IN, NTTYO.  lEOF) 

IF  (NFILEB.GT.6)  URITE  (NF  ILEB,-30)  NTIME  (I ) . (TREAD(  J,  I)  . SIGT(  J,  1 ) 
&-,RATE(J.  I)  ,SIGR(J,  I) , J = 1.2) 

IF  (NPRINT.GE.3)  URITE  (NPRINT.30)  NTIME(I) , (TREAD(J, I) ,SIGT(J, I) 
8.,RATE(J,I).SIGR(J.  I),J  = 1.2) 

30  FORMAT  (I 10.4E12.4/10X4E12.4) 

C 

C PUT  THERMOCOUPLE  READING  IN  MILLIVOLTS 

C 

DO  40  J = 1.2 

TREAD(J,I)  = TREAD(J,  I)>K1O00. 

40  SIGT(J.I)  = SIGT(J.  D>*a0O0. 

IDCI)  = I 
NDATA  « NDATA+1 
50  CONTINUE 

IF  (NFILEB.GT.6)  URITE  (NFILE8.70)NDATA 
60  IF  (NPRINT.GE.3)  URITE  (NPRINT.70)  NDATA 

70  FORMAT  (I6.28H  DATA  POINTS  READ  IN/) 

RETURN 

END 


4' 
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sftssn 
REftDX  PROG 
$FORT 

FUNCTION  REftDX(imRD,N,NP,NTTYI,NTTYO,lEOF) 

C 

C VERSION  OF  MAR  9,1977  $S$33$$$3$ 

C 

C FUNCTION  READX  USUALLY  RETURNS  THE  NEXT  DECIPHER I BLE  NUHBER  ON  THE 
C INPUT  FILE  =NTTYI=  AS  THE  VALUE  OF  THE  VARIABLE  READX. 

C ANY  OUPUT,  SUCH  AS  ERROR  MESSAGES  OR  THE  PROLiPT  CHARACTER, 

C IS  ON  UNIT  NTTYO. 

C 

C IU=  ALPHANUMERIC  INFORMATION  OF  THE  FIRST  1 OR  2 ILLEGAL  NON-NUMERICP.L 
C INFORMATION  ON  INPUT  FILE  NTTYI . 

C N=0  MEANS  NUMERICAL  INFORMATION  SUCCESSFULLY  PROCESSED. 

C N»1  CHECK  lU  LORD  FOR  NON-NUMERICAL  INFORMATION. 

C (READX=1.  IN  THIS  CASE). 

C NP=1  SEND  i AS  A PROMPT  CHARACTER  L'HEN  NEU  RECORD  REQUIRED. 

C NP=2  READ  A NEU  RECORD. 

C NP=3  DO  BOTH  THE  ABOVE. 

C NTTYI = INPUT  UNIT 

C NTTYO = OUTPUT  UNIT  FOR  PROMPT  CHARACTER  AND  ERROR  MESSAGES. 

C IEOF=0  END  OF  FILE  NOT  YET  REACHED  ON  UNIT  NTTYI. 

C IEOF=l  END  OF  FILE  FOUND  ON  NTTiT . 

C 

C ILLEGAL  INFORMATION: 

C 

C IF  FIRST  CHARACTER  IS  NOT  A BLANK,  COMMA,  POINT,  MINUS,  OR 
C A NUMBER,  THE  FIRST  2 ILLEGAL  CHARACTERS  ARE  RETURNED  IN  =JU=. 

C 

C LEGAL  INFORMAT  I ON>K 

C 

C LEADING  BLANKS  ARE  IGNORED. 

C LEADING  COMMAS  ARE  IGNORED. 

C DECIMAL  POINTS  AND  EXPONENTIAL  TYPE  NUMBERS  ARE  TREATED  CORRCECTLY. 

C $ ON  THE  INPUT  FILE  IS  PRESUMED  TO  PRECEED  AN  IN-LINE  COMMENT  AND 
C CAUSES  READING  OF  A NEU  RECORD. 

C NUMBERS  ARE  TERMINATED  BY  A BLANK,  COMMA,  OR  BY  THE  END  OF  A RECORD. 

C 

C 

C READX  IJAS  ORIGINALLY  IJRITTEN  BY  FRANK  MCCRACKIH  (NBS)  AND  UAS  MODIFIED 
C BY  FRED  MOPSIK  AND  BY  BRIAN  DICKENS.  (JAN  1977) 

C 

C 

c 

INTEGER  BRANCH 

1NTEGER>K2  CD.DEC,  IU2,N1,  J,  lEXP,  lEXPl 
LOGICAL  ISIGNE 

DIMENSION  CD(80),DEC(1O),TEN(10),TENTEN<10) 

DATA  DEC/' O', '1',' 2', '3', '4', '5', '6', '7', '8', '9'/ 

DATA  TEN/1., I .El , 1 .E2,  1 .E3, 1 .E4,  1.E5, 1.E6, 1.E7, !.ES, 1 .E9/ 

DATA  TENTEN/1. , 1 .E10,  1 .E20,  1 .E30,  I.E40,  1 .E50,  1 . E60, 3>Kl . E70/ 

DATA  Hl/81/ 

IF  (NP.EQ.2.CR.NP.EQ.3)  N1  - 81 
lEOF  - 0 
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N - 0 
SIGN  - 1. 

X - 0. 

Y - 1. 

YJ  “ 0. 

C 

c FIND  FIRST  CHARACTER 

C 

15  IF  (N1.GT.80)  GO  TO  1000 

IF  (CD(Nl) .EQ.'S')  GO  TO  1000 
ASSIGN  16  TO  BRANCH 
GO  TO  2080 

16  GOTO  (40. 100,30,20,20,300), IP 

20  HI  “ Nl+1 

GO  TO  15 
C SET  SIGN 
30  SIGN  = -1. 

HI  “ N1+! 

GO  TO  15 
C 

C CALCULATE  NUMBER 

C 

40  X - J 

50  HI  •=  Nl+1 

IF  (N1.GT.S0)  GO  TO  270 
IF  (CD(Nl) .EQ.'E')  GO  TO  50 
ASSIGN  70  TO  BRANCH 
GO  TO  2080 

70--  GO  TO  (75, 100,205.200,270,270), IP 
75  X - X>X10.+J 

GO  TO  50 

C 

C CALCULATE  FRACTION 

C 

100  CONTINUE 

110  HI  - Nl+1 

IF  (N1.GT.80)  GO  TO  270 
IF  (CD(Nl). EQ.'E')  GO  TO  110 
ASSIGN  125  TO  BRANCH 
GO  TO  2000 

125  GO  TO  (130.3855,285.200,273,270), IP 

130  YJ  “ 10.>t^YJ+J 

Y - 10. *Y 

" GO  TO  110 

C 

c CALCULATE  EXPONENT  lEXP 

C 

?09  ISIGNE  = .FALSE. 
lEXP  = 1 
lEXPl  - I 
GO  TO  210 

203  ISIGNE  = .TRUE. 
lEXP  - 1 
lEXPl  “ 1 
210  Ml  - Nl+1 

IF  (N1.GT.80)  GO  TO  250 
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ASSIGN  220  TO  BRANCH 
GO  TO  2000 

220  GO  TO  (230,250,250,250,250,250), IP 

230  lEXPl  = lEXP 

lEX?  = J+1 
GO  TO  210 

250  IF  (ISIGNE)  GO  TO  260 

REftDX  = SIGN*(X+YJ/Y)>HTEN(IEXP)*TENTENCIEXP1) 

N « 0 
RETURN 

260  READX  = SIGN^(X+YJ/Y)/(TEN(IEXP)>KTENTEN(IEXP1)) 

N = 0 
RETURN 

270  REftDX  = SIGN>it(X+YJ/Y) 

N » 0 
RETURN 
C 

C RETURN  ALPHA  ARG 

C 

300  IU2  = CD(Nl) 

N1  *=  Nl+1 

IF  (N1.GT.80)  GO  TO  302 

IF  (CD(Nl).EQ.'  ' .OR.  CD(Nl) .EQ. ' , ' .OR.  CD(Nl) .EQ. '$' ) GO  TO  332 
IU2  = ILJ2-X'20'+CD(N1)/X' 100' 

N1  = Nl+1 
302  lUORD  = IU2 
_ N = 1 

READX  =1.  ' 

RETURN 

3055  URITE  (NTTYO,305S)N1 
3856  FORNATC'  2d  . AT  COL.', 13) 

GO  TO  270 
1000  N1  = 1 

IF  (NP.EQ. 1.0R.NP.EQ.3)  URITE  (NTTYD, 1023) 

1020  FORMATC'  !') 

READ  (NTTYI, 1010,END  = 9300)  CD 
1010  F0RMftT(83ftl) 

GO  TO  15 

C 

C CHARACTER  INTER? . ROUTINE 

C 

2000  DO  2010  J = 1,10 

IF  (CD(Nl) .EQ.DEC(J))  GO  TO  2020 
2010  CONTINUE 
IP  *=  6 

IF  (CD(Nl).EQ.'.')  IP  » 2 

IF  (CD(Nl) .EQ.'-')  IP  » 3 

IF  (CD(Nl) .EQ.'+')  IP  = 4 

IF  (CD(Nl).EQ.'  ' .OR.  CDCNI ) .EQ. ' , ' ) IP  » 5 
GO  TO  2033 
2020  IP  = 1 
J = J-1 

2030  GO  TO  BRANCH 
9000  I EOF  •=  1 
RETURN 
END 
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5ASSM 

REGRES  PROG 
$FORT 
STRGT  16 
C 

c )K>K>MotoMoMo|oMoMoK>K5toK)MoMoMoMoMoMoMotoK>|oMcloMo<oK>MoK5»oMoMclo|^^ 

c 

SUBROUTINE  REGRES  (X. Y. S ICmV, NPTS, NTERMS, M, MODE, YF IT, fiO, A, S IGriP.O, 
2 SIGmA,R,RMUL,CHISQR,FTEST) 


C 

c 

C NEEDS  THE  FOLLOUING  FUNCTION  AND  SUBROUTINE: 

C FCTN 
C MATINV 
C 
C 

DOUBLE  PRECISION  ARRAY,SUM, YMEAN, SIGMA, CHI SQ,XLEAN, SI GHAX 
DIMENSION  X(NPTS) ,Y(NPTS) ,SIGMAYCNPTS),M(5),YFIT(NFTS) 
8.,SIGMAA(5),R(5).A';5) 

DIMENSION  LEIGHT(250),XMEANC5),SIGMAXC5),ARRAY(5,5) 


C 

c 

c 


10 


20 

30 

C 

C 

c 


’40 

50 

60 

70 

80 

90 


INITIALIZE  SUMS  AND  ARRAYS 


SUM=0. 

YM£AN=9. 

S1GMA=0. 

CHISQ=a. 

RMUL=0. 

DO  10  I=1,NPTS 
YFIT(I)=0. 

IF  (NTERMS.LE.0)  GO  TO  30 
DO  20  J=1,NTERMS 
XMEAN(J)=0. 

SIGMAX(J)=0. 

R(J)=0. 

A(J)=0. 

SIGMAA(J)=9. 

DO  20  K=!,NTERMS 
ARRAY(J,K)=0. 

CONTINUE 

ACCUMULATE  UEIGHTED  SUMS 

DO  110  I=1,NPTS 

IF  (MODE)  40,70,80 
IF  (Y(D)  60,70,50 
UEIGHT(1)=1./Y(I) 

GO  TO  90 

UEIGHT(I)«=l./(-Y(I)) 

GO  TO  90 
UE1GHT(I)=1. 

GO  TO  90 

UE I GHT  ( I ) = 1 . /S I GMA Y ( I ) >toK2 
SUM=SUM+UEIGHT(I) 
YMEAN=YMEAN+LJEIGHT(  I)>i<Y(  I) 


/ 
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IF  (NTERM3.LE.0)  GO  TO  110 
DO  100  J = INTERNS 

100  XMEAN(J)=XnEAN(J)+UEIGHT(n^CTN(X,  I,J.M,NPTS) 

110  CONTINUE 

Y^EAN=YnEAN/SU^'!  - 
IF  (NTERMS.LE.0)  GO  TO  130 
DO  120  J=l,NTERnS 
120  XMEAN(J)=XnEftN(J)/SUM 

130  CONTINUE 

FNPTS=NPTS 
UMEAN=SUM/FNPTS 
DO  140  I=1,NPTS 

140  UEIGHT(I)=UEIGHT(I)/LJMEfiN 

C 

c ACCUMULATE  MATRICES  R AND  ARRAY 

C 

DO  150  I=1,NPTS 

SIGMA=SIGMA+UiEIGHT(I)^(Y(I)-"fT1EAN)W 
IF  (NTERN3.LE.0)  GO  TO  160 
DO  150  J=1,NTERMS 

S I GMAX ( J ) =S  I GMAX  ( J ) +L'E  I GHT ( I ) ( FCTN  ( X,  I , J,  M,  NPTS ) -XME AN  ( J ) ) 
R(J)=R<J)+UEIGHT(I)>^;i:FCTN<X,  I,J,M,NPTS)-XMEANCJ))>K(Yn)-YMEAH) 
DO  150  K=1,J 

ARR A Y C J , K ) = ARRA Y ( J , K ) +UE I GHT ( I) C FCTN ( X,  I , J , M, NPTS ) -XME AN ( J ) ) 

2 >K(FCTN(X,  I,K,M,MPTS)-XMEAN(IO) 

150  CONTINUE 
160  CONTINUE 

FREEl-NPTS-1 

SIGMA=DSQRT(SIGMA/FREE1) 

IF  (NTEPMS.LE.0)  GO  TO  130 
DO  1?0  J==1,NTERMS 

SIGMAX(J;=DSQRT(SIGMAXCJ) /FREED 
R(J)=RCJ)/(FREEl>i'-SIGMAX(J)>KSIGMA) 

DO  170  K=1,J 

ARRAY(J,K)=ARRAYt;j.K)/(FREEliKSIGMAX(J)>H3IGMAX<K)) 

170  ARRAY  <K,J)=ARRAYi:J,K) 

180  CONTINUE 

C 

C INVERT  SYMMETRIC  MATRIX 

C 

IF  (NTERM3.LE.0)  GO  TO  200 
CALL  MATINV  ( ARRAY, NTERMS,DET) 

IF  (DET)  200,190,200 
190  AO=0. 

SIGMAO=0. 

RmL=0. 

CHISQR=0. 

FTEST-0. 

GO  TO  330 

C 

C CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 

C 

200  AO='fT!EAN 

IF  (NTERMS.LE.01  GO  TO  230 
DO  220  J=1,NTERMS 

DO  210  K=1,NTERMS 
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210 


A(J)=ft(J)+R<K)>Kfl:RRAY(j.K) 

A(J)=ft(J)>t-'SIGm/SIGmX(J) 
fiO=fiO-ft(J)>i;XnERNCJ) 

DO  220  I=1,NPTS 
220  YFIT(I)=YFIT(I)+A(J)>kFC1TKX.  I,J,M,NPTS) 

230  CONTINUE 

DO  240  I=1,NPTS 

YFITn)=YFIT(I)+AO 

240  CHISQ=CHISQ+IJEIGHT(  I)-x(Y(I)-YFIT(I))>»oK2 

FREEN=NPTS-NTERriS- 1 
CH I SQR=CH  I SQ^NJiiEAN/FREEN 

C 

C CALCULATE  UNCERTAINTIES 

C 

IF  (MODE)  250,260,250 
250  VARNCE=I ./UMEAN 
GO  TO  270 

260  VARNCE=CHISQR 

270  IF  (NTERMS.LE.0)  GO  TO  298 
DO  280  J=1,NTERMS 

S I GMA  A ( J ) = ARR  A Y ( J , J ) >KVARNCE/  ( FREE  1 >J<S  I GMAX  ( J ) >K>K2 ) 

SIGMAA(J) =SCRT(SIGMAA( J) ) 

280  RMJL=RMUL+A(J)>kR(J)>kSIGMAX(J) /SIGMA 

FREEJ=NTERMS 

FTEST=(RMUL/FREEJ)/(  < 1 .-RMUD/FREEN) 

RMUL=SQRT(RMUL) 

GO  TO  300 
290  CONTINUE 
FREEJ=0. 

FTEST=0. 

RMUL=0. 

300  SIGMAO=VARNCE/FNPTS 

IF  C NTERMS.LE.0)  GO  TO  320 
DO  310  J=1,NTERM3 

DO  310  K=1,NTERMS 

310  SIGmO=SIGr1;'lO+VARNCE>l:XMEAN(J)>HX^EAN(K)^RRAYCJ,K)/(FREEl>^tSIGMA 

2X(J)=i=SIGMAXaO) 

320  SIGMAO=SQRT(SIGMAO) 

330  RETURN 
END 
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$ASSM 
S0RT4  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  SORT4  (A,K.N) 

C 

c 

c 

C THIS  SUBROUTINE  SORTS  A 1-D IMEM5 lONAL  FLOATING  POINT  ARRAY 
C (A)  AND  AN  ARRAY  (K)  INTO  AN  ORDER  BASED  ON  THE  ELEiYENTS  IN 
C IN  ARRAY  (A) . 

C 

DIMENSION  A(N),K(N) 

C 

IF  (N.LE.l)  RETURN 
DO  20  I = 2,N 
INI  = I-l 
DO  10  J = KIMl 
JJ  = I-J 

IF  (A(JJ)  .LE.A(JJ+D)  GO  TO  20 
X = A(JJ) 

. A(JJ)  = A(JJ+1) 

A(JJ+n  = X 
L = K(JJ) 

K(JJ)  = K(JJ+1) 

10  K(JJ+1)  = L 

20  CONTINUE 

RETURN 
END 


e 
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sfissn 
SORTS  PROG 
SPORT 
STRGT  16 

c 

SUBROUTINE  SORTS  CK,B,C,N) 

C 

c 

c 

C THIS  SUBROUTINE  SORTS  P 1-D IMEHS lONPL  PRRPY 
C (K)  PND  THE  PRRPYS  (B)  PND  (C)  INTO  PN  ORDER  BPSED 
C ON  THE  ELEMENTS  IN  PRRPY  (K) . 

C 

DIMENSION  K(N) ,B(N) .C(N) 

C 

IF  (N.LE.l)  RETURN 
DO  20  I = 2,N 
IMl  = I-l 
DO  10  J = 1.  im 
JJ  = I-J 

IF  <K(JJ)  .LE.K(JJ+D)  GO  TO  20 
L «=  K(JJ) 

KCJJ)  = K(JJ+1) 

K(JJ+n  = L 
X = B(JJ) 

B(JJ)  = BCJJ+1) 

B(JJ+1)  = X 
X = C(JJ) 

C(JJ)  = C(JJ+n 

c(jj+n  = X 

10  CONTINUE 

20  CONTINUE 

RETURN 
END 
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THMPLS  PROG 
$FORT 
$TRGT  16 

0 :(clc4ci<;|<)K>K5Mo!c>K)K>|oMoK5MoMoMoMC)MoMoMoM»MoK5K>Mo)oK5H5Mo(^^ 

c 

SUBROUTINE  THnCPL  (AT) 

C 

0 >MoK>^o|o^aK>K>l<;K>MoK>ioMoMo1o^ct)^:>^oK>PMoMc^oioMo^o;o^oK>^oK3K>MoK5k5W^>H>k>K5ioMo^^ 

c 

C SUBROUTINE  TO  READ  THERmCOUPLE  TYPE  PND  PROVIDE  COEFFICIENTS  FOR 
C CONVERSION  OF  THERMOCOUPLE  READINGS  IN  MICROVOLTS  TO  DEGREES  CELCIUS 
C NEEDS  COMMON  /lO/  NTTYKNTTYO,  IN,NPRINT,NFILEfl,NFILEB 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYUDUMPC 1) ) . (NTTr'0,DUMP(2) ) , ( IN,DUMP(3) ) 

8.  , (NPRINT,DUMP(4) ) , (HF ILEA, DUM'^ (5)  ) , (NF ILEB, DUMP  (6) ) 

C 

DIMENSION  AT(4) 

C 

C 

URITE  (NTTY0,10) 

10  FORMAT  (/'  GIVE  THERMOCOUPLE  TYPE,  K OR  E') 

20  READ  (NTTYI,30)  NTHCP 

30  FORMAT  (Al) 

ITHCP  = 4 

IF  (NTHCP.EQ.'K') ITHCP  = 1 

IF  (NTHCP.EQ.'E') ITHCP  = 2 

GO  TO  (40,60,80,90),  ITHCP 

C 

C TYPE  K THERMOCOUPLE, VALUES  FROM  TABLE' A7. 2.3, NBS  MONO. 125 

C 

IF  (NFILEB.GT.6)  URITE  (NFILEB,50) 

40  IF  (NPRINT.GE.3)  LRITE  (NPRINT,50) 

50  FORMAT  (/52H  TYPE  K THERMOCOUPLE  = N I -CR/N I- AL, EXPRESS  IONS  GOOD  / 

8.. 40H  TO  400  DEGREES  C.  (TABLE  A7,NBS  MONO.  125,  1974) ) 

AT(1)  = 2.4383243E-02 

AT(2)  = 9.7833251E~09 
AT(3)  = 3.6276955E-12 
AT(4)  = -2.5756438E-16 
GO  TO  110 
C 

C TYPE  E THERMOCOUPLE 

C 

IF  (NFILEB.GT.6)  URITE  (NFILEB,70) 

60  IF  (NPRINT.GE.3)  URITE  (NPRINT,70) 

70  FORMAT  (/52H  TYPE  E THERMOCOUPLE  = N I -CR/CU-N I , EXPRESS  IONS  GOOD  / 

8.. 58HFR0M  -0.05  TO  +3.04,  0 TO  480  DEGREES  C.  (TABLE  A5.2.3,NBS  /, 

8.  19HM0N0GRAPH  125,1974)) 

AT(1)  = 1.7022525E-02 
AT(2)  = -2.2097240E-07 
AT(3)  = 5.430931^E-12 
AT(4)  = -5.7669892E-17 
GO  TO  110 
C 

C DUMMY  LOCATION 

C 

80  IF  (NFILEB.GT.6)  URITE  (NFILEB.100) 

IF  (NPRINT.GE.3)  URITE  (NPRINT, 100) 

GO  TO  20 

C 

C ERROR  ROUTE 

C 

100  FORMAT  (/40H  URONG  SPECIFICATION  FOR  THERMOCOUPLE, TRY  AGAIN) 

GO  TO  20 
110  RETURN 
END 
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spissn 

UTfiVER  PROG 
$FORT 
STRGT  16 

c 

SUBROUTINE  UTfiVER  (E,SIGE.NDATn,UTEflVE,SIGlJTE,EftVE,ESIG) 

C 

c 

C >M«K-  NOT  THE  UINSORISING  VERSION  >i«toK 

C 

C SUBROUTINE  TO  CALCULATE  AVERAGE  E (IJTEAVE)  AND  STANDARD  DEVIATION  CSIGUTE) 
C FROM  INPUT  LIST  E AND  SIGE  CONTAINING  = NDATA  = VALUES 
C ALSO  CALCULATE  UNUEIGHTED  AVERAGE  AND  95%  CONFIDENCE  RANGES 

C 

C NEEDS  THE  FGLLOUING  COMMON  BLOCKS  AND  SUBROUTINES: 

C COMMON  /lO/  NTTYI,NTTYO, IN.NPRINT,NFILEA,NFILEB 

C COMMON  /REGRS/  MC5) ,R(5) , YFIT(250) 

C • 

C NEEDS  SUBROUTINES: 

C AVSDN 

C CHISQ 

C REGRES 

C 

COMMON  DUMP  (275) 

EQUIVALENCE  (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) , (IN. DUMP (3)) 

8.  , (NPRINT,DUMP(4)),  (NFILEA,D!JMP(5)),  (NFILEB.DUMP(S)) 

DIMENSION  M(5).R(5),YFIT(250) 

EQUIVALENCE  (M( 1 ) , DUMP ( 10) ) , (R ( 1 ) , DUMP ( 15) ) , (YF IT( 1 ) , DUMP (20) ) 

C 

DIMENSION  E (NDATA), SIGE (NDATA), A (5), S IGA (5) 

C 

C CALCULATE  AVERAGE  UNUEIGHTED  E 

C 

UTEAVE  = 0. 

SIGUTE  = l.E-09 
EAVE  = 0. 

ESIG  = l.E-09 
SIGAVE  = l.E-09 
FREE  =0. 

CHIIJTE  =0. 

CHIUNU  =0. 

IF  ( NDATA. LE.0) RETURN 
IF  (NDATA. GT. 1) GO  TO  200 
UTEAVE  = E(l) 

SIGUTE  = SIGE(l) 

SIGAVE  = SIGE(l) 

EAVE  = Ed) 

ESIG  = SIGE(l) 

GO  TO  300 
200  CONTINUE 

CALL  AVSDN  (EA^/E, ES IG, E, NDATA) 

CALL  CHISQ  (E, SIGE, CHIUNU, NDATA) 

C 

C CALCULATE  AVERAGE  SIGE 

C 

CALL  AVSDN  (SIGAVE,SIGSIG, SIGE, NDATA) 

C 

C CALCULATE  UEIGHTED  AVERAGE  OF  E 

C 

CALL  REGRES  (E, E. SIGE, NDATA, 0. M, 1,YFIT,A0, A, SIGAO,SIGA 
8. , R , RMUL , CH I UTE , FTEST) 

UTEAVE  = AO 

C 


D69 


ono  oj  nnn  ono  no 


CftLCULATE  SIGMA  FOR  UEIGHTED  E AVERAGE 

SIGUTE  = 0. 

DO  10  I = 1,NDATA 
10  SIGUTE  = SIGUTE-M  ./SIGE(  I)>K^:2 
SIGUTE  = SQRTC 1 ./SIGUTE) 

FDATA  = NDATA 

FREE  = NDATA- 1 

ESIG  = ESIG/SQRT(FDATA) 

CALCULATE  95y.  CONFIDENCE  RANGE 

300  T = 1.96>t:SIGUTE 
UTEHI  = UTEAVE+T 
UTELO  = UTEAVE-T 
T = 1.9G=i:ESIG 
UNUEHI  = EAVE+T 
UNUELO  = EAVE-T 


OUTPUT  AVERAGES 

IF  (NPRINT.LT.Z)  GO  TO  100 

URITE  (NPRINT,30)  UTEAVE,  S IGUTE.  CH  lUTE,  S IGA'v'E,  FREE 
FORMAT  (/'  UEIGHTED  MEAN  E IS  '.F7.3,'  + OR  - ',F7.3/ 

8.  ' REDUCED  CHISCI  FOR  E CALCULATION  IS’,F7.3,'  (SHOULD  BE  1.)'/ 

8.  ' UNUEIGHTED  MEAN  OF  SIGMAS  IS  '.F7.3,/ 

8c,'  CALCULATED  OVER  ',F5.0,'  DEGREES  OF  FREEDOM') 

OUTPUT  CONFIDENCE  LIMITS 

URITE  (NPRINT.40)  UTELO, UTEHI 
40  FORMAT  (/'  ASSUMING  ALL  POSSIBLE  SAMPLE  MEANS  ARE  NORMALLY'/ 

8c  ' DISTRIBUTED,  TRUE  UEIGHTED  MEAN  LIES  UITHIN  RANGE' , F7 . 3, ' TO 
8.  F7.3/'  FOR  95.T  CONFIDENCE  LEVEL') 

URITE  (NPRINT,50)  HAVE, ES IG , UNUELO, UNUEH I , CH lUNU 
50  FORMAT  (/'  UNUEIGHTED  ESTIMATE  OF  MEAN  E AND  UNBIASED  ESTIMATE 
8.  /'  OF  ITS  SIGMA  ARE',F7.3,'  AND',F7.3 
8.  /'  THIS  GIVES  A CONFIDENCE  RANGE  0F',F7.3,'  T0',F7.3 
8./'  CHI-SQUARE  FOR  UNUEIGHTED  E IS',F7.2) 

100  IF  (NFILEB.LE.b) RETURN 

URITE  (NFILEB,30)UTEAVE,SIGUTE,CHIUTE,SIGAVE,FREE 
URITE  (NFILEB, 40) UTELO, UTEHI 

URITE  ( tiF  I LEB , 50 ) EAVE , ES  I G , UNUELO , UNUEH  I , CH  I UNU 

RETURN 

END 
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File  LOTGDE,  used  as  DO  LOTGDE,DO  to  assign  files  needed  to  make 
overlays  in  TGDEPG  program.  This  file  also  starts  the  program  LIBLDR 
which  actually  makes  the  overlays. 


ftC 

TGDEPG. 

1D0 

AS 

362 

AC 

TGDEL5, 

5D0 

AC 

TGDErfB, 

7D0 

AC 

OVERLB. 

SDO 

AC 

FORLIB. 

FD0 

RUN  LISLDR 

:,D0 

CL 

AC 

TGDEOl. 

1D0 

AC 

PR  I MSB, 

7D0 

AC 

DAThRB . 

SDO 

AC 

THMCSB, 

9D0 

AC 

READIB. 

ADO 

AC 

ACTIVB, 

BD3' 

AC 

READVB. 

CD0 

AC 

ERcADB, 

DD3 

AC 

TDEGB3. 

EDO 

ST 

CL 

AC 

TGDEC2, 

IDO 

AC 

PINV3.7D0 

AC 

PR0B2B, 

SDO 

AC 

S0RT4B. 

SDO 

AC 

S0RT5B, 

ADO 

AC 

UTAVEB. 

EDO 

AC 

REGRSB. 

CDS 

AC 

FCTNB,DD0 

AC 

MATINS. 

EDO 

ST 

AC 

PN0RM3, 

7D0 

AC 

AVSDN3, 

8D0 

AC 

CHISQ3, 

SDO 

AC 

PLOTS, ADO 

AS 

B20 

AS 

C20 

AS 

D20 

AS 

E20 

ST 

CL 

AS 

120 

AS 

320 

AS 

520 

AS 

720 

AS 

820 

AS 

920 

AS 

A20 

AS 

F20 

AS 

220 

TR 
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File  TGDEL5,  which  contains  the  appropriate  responses  to  the  program 
LIBLDR  to  make  the  overlays  in  the  TGDEPG  program. 


OUT  1 TGDEPG 

BI  3576 

BC  044C 

LO  7 

LI  8 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 

OUT  i TQDEOl 

OV 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

LI  D 

LI  E 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 

OUT  1 TGDE02 

OV 

LI  7 

LI  8 

LI  9 

LI  A 

LI  B 

LI  C 

LI  D 

LI  E 

END 

LI  7 

LI  8 

LI  9 

LI  A 

RU  F 

ED  F 

MAP 

MAP  3 

XOUT 

UF  1 

END 
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Memory  map  for  the  base  segment  of  the  TGDEPG  program. 


REL  PROGS: 
3576  TGDEN 

00EE 

0\/ERLY 

3240 

IFETCH 

823E 

.R 

82FA  .A 

83A0 

SORT 

84A3 

ALOG 

S5B5 

EXP 

86BC  AINT 

3734 

ABS 

374A 

.U 

8793 

.COM? 

87C4  £6 

SSGE 

.RARG 

333A 

£3 

3864 

.5 

8360  .ZERO 

3374 

.H 

0806 

.S 

38FC 

.P 

897E  .0 

SA2E 

.0 

3 A t'  b 

.MES 

8AEC 

.U 

8B1C  .V 

8B2A 

9R 

3B50 

02 

SB76 

0H 

9DC0 

ABS  PROGS: 
NONE 

ENTRY-POINTS: 
8112  OVERLY 

824E 

IFETCH 

3200 

.R 

82FC 

.A 

83A2  SORT 

34AA 

ALOG 

EXP 

86BE 

A]NT 

8736  ABS 

8740 

.U 

378A 

.COM? 

8706 

55 

8310  .RARG 

3830 

ooco 

.5 

3870 

■ .ZERO 

8876  .H 

8808 

• s 

88FE 

.P 

8980 

.Q 

8A30  .0 

8A78 

. ME3 

SAFA 

.U 

8B22 

.V 

8B2C  0R 

COMMON-BLOCKS: 
FBB2  // 

8B52 

@Z 

8BC4 

0H 

UNDEFINED: 

PRIMES  DATPlRD  PR0BP2  SORTS  PINV  UTAVER 

REGRES  PLOT 
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Memory  map  for  the  initialization  segment  of  the  TGDEPG  program. 


REL  PROGS: 

3576 

TGDEN 

S0EE 

OVERLY 

824C 

IFETCH 

S2BE 

.R 

82FA 

.0 

3300 

SORT 

3403 

OLOG 

35B6 

EXP 

86BC 

01  NT 

3734 

OBS 

3740 

.IJ 

8793 

.COMP 

87C4 

$6 

SS0E 

.RORG 

3330 

$3 

8364 

.5 

886C 

.ZERO 

3374 

33CG 

.S 

33FC 

.P 

897E 

.0 

802E 

.0 

8076 

.MES 

30EC 

.U 

8B1C 

.V 

SB20 

0R 

SE33 

0Z 

3376 

QH 

9F23 

PRIMES 

0412 

DOTORD 

B3  1 6 

THMPLS 

B710 

REODIN 

BD9E 

OCTIV 

C5E0 

REODX 

CD04 

EREOD 

D3Q0 

TDEGOB 

D0B8 

.Y 

D0BE 

.Y2 

D13E 

fiBS  PROGS: 

NONE 

ENTRY-POINTS: 

8112 

OVERLY 

824E 

IFETCH 

82C0 

.R 

82FC 

.0 

8302 

SORT 

3400 

OLOG 

3533 

EXP 

86BE 

OINT 

8736 

OBS 

874C 

.LJ 

8790 

.COMP 

37C6 

So 

8810 

. RORG 

O U O 

$3 

ooco 

1_I  Cl  o 

. 5 

8370 

.ZERO 

8876 

.H 

sees 

. S 

33FE 

.P 

8930 

.Q 

8030 

.0 

8073 

.MES 

SOFO 

.U 

SB22 

.V 

8B2C 

GR 

8B52 

@Z 

SBC4 

SF4C 

PRIMES 

0436 

DOTORD 

B330 

THMCPL 

B734 

REODIN 

BDC2 

OCTIV 

C604 

REODX 

CDC8 

EREOD 

D02E 

TDEGOB 

D0BO 

.Y 

D0C0 

.Y2 

comoN- 

-BLOCKS: 

FBB2 

// 

UNDEFINED: 

PR0BP2  SORTS 

PINV 

UTOVER 

REGRES  PLOT 

Memory  map  for  the  probability  plot  segment  of  the  TGDEPG  program. 


REL  PROGS: 


3576 

TGDEN 

80EE  OVERLY 

9240  IFETOH 

82BE 

• R 

82FA 

• A 

S3AQ  SORT 

84A8  ALOG 

85E6 

EXP 

86BC 

A I NT 

8734  ABS 

874A  .IJ 

8793 

.OOMP 

8704 

S6 

S80E  .RARG 

833A  53 

3364 

. 5 

8860 

.ZERO 

8874  .H 

8806  .S 

83F0 

.P 

897E 

.0 

8A2E  .0 

8A76  . NES 

3AE0 

.U 

8B10 

.V 

SB2A  0R 

SB50  0Z 

3376 

GH 

9F23 

PINV 

SPEC  PR0BP2 

A0DE  SCRT4 

A232 

SGRT5 

A434 

IJTAVER 

AC6E  REGRES 

0235  FCTN 

C2EE 

MATINV 

OABO 

PNORM 

CC5E  AVSDN 

CDEG  OH  ISO 

OF  44 

PLOT 

D96A 

.D 

D973  .COriEX 

DB4S  DLOG 

Dr.Bb 

DEXP 

E03E 

DSDRT 

E2S8  57 

E2EE  53 

E325 

DAINT 

E3EA 

eA 

E434  @1 

E412  03 

E434 

DABS 

E44E 

• G 

E4S4  0F 

E56A  0L 

E59A 

Q!< 

E50A 

0M 

E766  02 

E774  0D 

E33E 

0T 

E8B6 

OE 

ESDA  00 

ESF6  0N 

E950 

0U 

E963 

@V 

E9S3  0P 

E9B8  03 

E9C3 

• DARG 

EftOfl 

.DSUAP 

EA66  .DRTN 

EASE  FLOAT 

EA94 

FL0AT2 

EfiOO 

.Y 

EAD2  .Y2 

EB52  MOD 

EB53 

M0D2 

E886 

. IIARG 

EBO0 

ABS  PROGS: 
NONE 


ENTRY-POINTS: 


8112 

OVERLY 

■ P24E 

IFETOH. 

3200 

.R 

82F0 

.A 

83A2 

SORT 

S4AA 

ALOG 

8533 

EXP 

363E 

AINT 

8736 

Abb 

3740 

J..J 

879A 

. OOMP 

3706 

55 

8810 

. RARG 

8330 

S3 

8868 

.5 

8370 

•.ZERO 

8876 

.H 

3303 

1— 

• 

33FE 

.P 

8980 

.Q 

8A30 

.0 

8A73 

. MES 

SAFA 

.U 

8B22 

.V 

8B20 

0R 

8B52 

02 

8B04 

QH 

9F4C 

PINV 

A010 

PR0BP2 

A102 

S0RT4 

A2A6 

S0RT5 

A4A3 

IJTAVER 

A092 

REGRES 

025A 

FCTN 

C2E2 

MATINV 

CAEO 

FNGRM 

0082 

AVSDf] 

CE8A 

OHISQ 

0F63 

PLOT 

D96C 

.D 

D97A 

. OOMEX 

r O .-I  o 

DLOG 

DEBS 

DE^;p 

E3S3 

DSQRT 

E292 

57 

E2F0 

59 

E323 

DAINT 

E3EC 

QA 

E406 

01 

E414 

03 

E436 

DABS 

E450 

.G 

E466 

0F 

E56C 

0L 

E59C 

Q!< 

E500 

0M 

E76S 

02 

E776 

0D 

ES90 

0T 

E8B3 

0E 

E8D0 

00 

ESFS 

C4-I 

E952 

0L) 

E9SA 

0V 

E98A 

0P 

E9BA 

0B 

E9CA 

.DARG 

EA0O 

.DSUAP 

EA68 

. DRTN 

EA90 

FLOAT 

EA96 

FL0AT2 

EACE 

.Y 

EAD4 

.Y2 

EB54 

MOD 

EB5A 

M0D2 

EB38 

.IIARG 

COmON-BLOCKS: 
FBB2  // 


UNDEFINED: 

NONE 


D75 


D76 


Appendix  E.  POLGEP,  a FORTRAN  program  to  fit  a user-chosen 
polynominal  to  data  in  any  format. 


El 


File  FIXPOL,  a variant  on  the  more  usual  SETXX  type  of  file, 
which  is  used  as  DO  FIXPOL, DO  to  compile  the  main  routine  for 
the  polynomial  fitting  program  and  assemble  the  program. 


ZU 

ftC  POLGEH, 1D0 
AC  CftL0UT,2DI 
AS  300 
RUN  FORTV 
AC  CALOUT. IDl 
AC  POLGEB,2D0 
RUN  CAL 
UF  2 
CL 
ZU 

AC  POLGEP, 1D0 
AC  POLGEB,?D0 
AC  READX3,8D8 
AC  REGRSB.SD0 
AC  FCTNB,AD0 
AC  MATINB,BD0 
AC  EXTPOB,CD0 
AC  GENREB,DD0 
AC  FORLIB,FD0 
AC  POLGL5,5D0 
RUN  LIBLDR..D0 
CL 
ZU 
■PR 


E2 


Example  of  the  input  to  the  POLGEP  program.  User-supplied 
information  is  underlined. 


POLGEN  PROGRAM,  GIVE  NUMBER  OF  POLYNOMIAL  TERMS 
AFTER  CONSTANT  TERM  (FORMAT  ID 

I 

GIVE  DEGREES  OF  POLYNOMIAL  IN  II  FORMAT,  1 PER  LINE 

1 


POLGEN  PROGRAM 

FIT. 1 TERM  POLYNOMIAL  TO  DATA  ON  FILE  7 
TERMS  IN  POLYNOMIAL  U ILL  BE:  1 

REPEAT  SEQUENCE  OF  UP  TQ  100  ALLOL'ED  IN  INPUT  FILE 
PROGRAM  WILL  READ  ALL  FORMATS  PROVIDED  THERE  ARE  NO 
ALPHABETIC  CHARACTERS 

UEIGHTED  OR  UNWEIGHTED  FIT  IN  LEAST  SQUARES? 

GIVE  1 OR  0 IN  II  FOMAT 

£ 

LEAST  SQUARES  FIT  UILL  BE  UNLJEIGHTED 
INPUT  ROUTINE 

GIVE:  LU  NUMBER  OF  INPUT  FILE 

NUMBER  OF  LINES  TO  SKIP  AS  TEXT  AFTER  ALLOWING 
FIRST  LINE  TO  BE  A TITLE 
TOTAL  NUMBER  OF  ARGUMENTS  IN  ONE  LINE 
ORDINAL  NUMBER  OF  ARGUMENT  TO  BE  CALLED  = XCD  = 

DITTO  FOR  X(2),X(3DX(4),X(5),X(6),  STOPPING  WITH  0 IF  < 
THEN  NUMBER  OF  POINTS  TO  EE  READ  IN 
8 = UPTO  EOF,  MAXIMUM  OF  508. 

I 

7 1 20  2350  0 

GIVE  ONE  SCALING  FACTOR  FOR  EACH  INPUT  VALUE 

I 

1 1 1 

TITLE  OF  INPUT  FILE  IS 

POOLED  E'S  FROM  PP  IN  VAC  APRIL  7S  FROM  PPVAC  1,2, 3, 4, 5, 6 
1 LINES  OF  TEXT  UILL  BE  SKIPPED  AFTER  TITLE 
500  POINTS  MAX  UILL  BE  READ  IN 
20  ARGUMENTS  PER  LINE 

ARGUMENTS  ARE  TO  BE  SAVED  IN  CALLING  ARRAY  X AS  FOLLOWS: 

X(D  IS  ARGUMENT  NUMBER  2 

X(2)  IS  ARGUMENT  NUMBER  3 

X(3)  IS  ARGUMENT  NUMBER  5 

SCALE  FACTORS  APPLIED  TO  INPUT  VALUES  ARE: 

0.10O300E+01  FOR  INPUT  VALUE  NUMBER  2 

0.10000eE+01  FOR  INPUT  VALUE  NUMBER  3 

0.1080O0E+0I  FOR  INPUT  VALUE  NUMBER  5 

ARE  ABOVE  PARAMETERS  OK?  ANSWER  0 FOR  NO  OR  1 FOR  YES 

I 


6 AGUMENTS 


E3 


54  DATPl  READ  FROM  FILE  7 
Y 


SIG  Y 


X 


0.643039E+02 
0.584326E+02 
0.687540E+02 
0.6172G8e-f02 
0.590680E+02 
0.745330E+02 
0.602800E+02 
0.586900E+02 
0.60S990E+02 
0.618540E+02 
0.56S920E+02 
0.613338E+02 
0.609690E+02 
0 . 53537 8 E+02 
0.543790E+82 
0.6049 10E+02 
0.627638E+02 
0.393910E'^02 
0.589750E+02 
0.672830E+02 
0.696688E+02 
0.632920E+02 
0.699318E+82 
0.73275OE+02 
0.72340QE+02 
0.603300E+02 
0.625450E+02 
0.609600E402 
0.63I620E+02 
0.596740E+02 
0.594909E+02 
0.G03240E+02 
0.624720E+02 
0.62017OE+02 
0.63519GE+02 
0.5959 10E+02 
0.665220E+02 
0.67153GE+82 


0.903000E+00 

0.1205082401 

0. 105600E401 

0. 111480E401 

0.671803E400 

0. 146530E401 

0.255080E400 

0.35200GE400 

0.545686E480 

0.495G00E400 

0.66G080E400 

0 . 5640G0E400 

8.8940O0E400 

0.54300OE400 

0. 110430E401 

0 . 554G00E40O 

0.633000E400 

0. 106S00E4gi 

0.607088E480 

0.736890E403 

0.  105200E401 

0 . 6O000OE409 

0.956O0GE40O 

0 . 94S000E400 

0. 1G4200E40! 

0 . 402000E403 

0.596O00E400 

0.317000E4G0 

0. 4340002400 

0.354003E400 

0,5S600OE40O 

0.3090G8E400 

0.581O90E430 

8.3470092400 

8.752O0OE400 

0.465O00E400 

0 .747000E400 

O.536OO0E400 


0.383237E4O5 
0. 190721E405 
-0.427110E405 
-0.539152E405 
-6. 100918E406 
-0. 125G8SE406 
0.  1302S2E43S 
0.972G63E4O5 
0.5475S5E4O5 
0.3677S7E405 
0. 125423E485 
-0.25S341E405 
-0.59917OE495 
-0.332575E405 
-0.637095E435 
-0.7G5823E405 
-0.996102E405 
-0. 121597E406 
0.75S076E4O5 
0.2675S4E405 
-0.231073E4O5 
-0.665374E435 
-0. 105713E40S 
-0. 1323G2E406 
0.  182S21E406 
0. 104814E406 
0.781281E4O5 
0.G25377E405 
. 0.336895E405 
0.2479 12E405 
0.428628E434 
-0.91730GE404 
-0.366357E405 
-0.51G163E405 
-0. 79793 -4E405 
-0.939S3EE405 
-0. 117902E406 
-0. 1458S7E406 


E4 


0.584520E+02 

0.429000E+00 

0.250229E+O6 

0.53356OE+02 

0.46600OE+00 

0.2287S5E+06 

0.62472OE+02 

0.3538O0E+00 

0.214575E+O5 

0.57256OE+02 

0.493000E+30 

0.  191049E+06 

0.60987QE+O2 

0.3S0O8CE+O9 

0.  176091E+O6 

0.622300E+02 

0.7170G0E+0O 

0.  1516S5E+06 

0.596570E+O2 

0.540GO0E+00 

0.  136797E+06 

0.61831OE+02 

0.46203OE+00 

0. 1 13023E+0b 

0.589270E+02 

0.370O00E+00 

0.981S07E+C5 

0.497980E+02 

0.49900OE+00 

0.747946E+35 

0.651810E+02 

0 . 420000E^'00 

0.6033 17E+35 

0.578520E+02 

0.693000E+00 

0.3S48b4E+O5 

0.569240E+02 

0.551000E+00 

0.252802E+S5 

0.5338S0E-I-02 

0.8520638+00 

0.’33913SE+a4 

0.636900E+02 

0.503030E+00 

-0.634S37E+04 

0.5665408+02 

0.531000E+00 

-0.3351 14E+05 

POLYNOMIAL  COEFFICIENTS  AR’ 

E 

0.60531662E+02  0 . 9099364ZE+00 

•0.9653496&E-05  0.78444409E 

-05 

CHISQR  = 6.332E+C2 

FTEST  = 0.151E+01 

RMUL  = 0.16SE+00 

R =-0.16SE+00 

FITTED  fiBOUT  MID  POINT  OF  T=  0,781281E+05 


38324. 

64.3 

60.9 

1.0 

-0.6 

0.316E-02 

0.S33E+02 

6. 

19072. 

58.4 

61.1 

1.0 

-0.0 

0.316E-02 

0.59SE+02 

0. 

-427 11. 

63.8 

61.7 

1.3 

-0.0 

0.316E-02 

0.47CE+82 

0. 

-53915. 

61.7 

61.8 

1.4 

-0.0 

0.316E-02 

O.448E+02 

0. 

100918. 

59.  1 

62.3 

1.7 

-0.0 

0.316E-02 

0.372E+02 

0. 

126686. 

74.6 

62.5 

1.8 

-0.0 

0.316E-02 

8.339E+02 

0. 

130262. 

60.3 

60.0 

1.0 

-0.0 

0.316E-02 

0.6O2E+02 

0. 

97266. 

58.7 

60.3 

0.9 

-0.0 

0.316E-02 

3.654E+02 

0 . 

54759 . 

60.7 

60.8 

0.9 

-0.0 

■ 0.316E-02 

0.655E+02 

0. 

36777. 

61.9 

60.9 

1.0 

-0.0 

0.316E-02 

0.631E+02 

0. 

12543. 

56.9 

61.2 

1.0 

-0.0 

0.316E-02 

0.5S5E+02 

0. 

-25634. 

61.3 

61.5 

1.2 

-0.0 

0.316E-02 

0.534E+B2 

0 . 

-59917. 

61.0 

61.9 

1.4  , 

-0.0 

0-.316E-82 

3.437E+02 

0. 

-33258. 

53.5 

61.6 

1.3 

-0.0 

0.316E-02 ■ 

0.438E+02 

0. 

-63709. 

54.4 

61.9 

1.4 

-0.0 

0.316E-82 

0.431E+Q2 

a. 

-76582. 

60.5 

62.0 

1.5 

-0.0 

0.316E-02 

0.409E+02 

0. 

-93610. 

62.8 

62.2 

1.7 

-0.0 

0.316E-02 

0.374E+02 

0. 

121597. 

39.4 

62.5 

1.8 

-0.0 

0.316E-O2 

0 . 345E+02 

0. 

75808. 

59.0 

60.6 

0.9 

-0.0 

0.316E-O2 

0.665E+O2 

0. 

26756. 

67.3 

61.0 

1.0 

-0.0 

0.316E-02 

3.513E+02 

0. 

-23107. 

69.7 

61.5 

1.2 

-0.0 

0.316E-02 

0.5O9E+62 

0. 

-66537. 

63.3 

61.9 

1.5 

-0.0 

0.316E-02 

0.42SE+02 

0. 

105713. 

69.9 

62.3 

1.7 

-0.0 

0.316E-02 

0.365E+O2 

0. 

132862. 

73.3 

62.6 

1.9 

-8.0 

0.31SE-02 

0.331E+02 

0 . 

182921. 

72.3 

59.5 

1.2 

-0.0 

0.316E-O2 

0.485E+02 

0. 

104814. 

60.3 

60.3 

0.9 

-0.0 

0.316E-B2 

0.646E+02 

0. 

78128. 

62.5 

60.5 

0.9 

-0.0 

0.316E-02 

0.655E+02 

0. 

62538. 

61.0 

60.7 

0.9 

-0.0 

0.316E-O2 

0.661E+02 

0. 

38689. 

63.2 

60.9 

1.0 

-0.0 

0.316E-02 

0.S34E+C2 

0. 

24791. 

59.7 

61.0 

1.0 

-0.0 

0.316E-02 

O.610E+02 

0. 

4286. 

59.5 

61.2 

1.1 

-0.0 

0.316E-02 

0.563E+02 

0. 

-9179. 

60.3 

61.4 

1.1 

-0.0 

0.31SE-02 

O.533E+02 

0. 

0 

0 

9 

0 

0 

0 

0 

0 

9 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

.0 

0 

0 

0 

0 

0 

0 

,0 

,0 

.0 

,0 

,0 


E5 


-3668S. 

62.5 

61.6 

1.3 

-0.0 

0.316E-02 

0.431E+02 

0.0 

-51616. 

62.0 

61.8 

1.4 

-0.0 

0.316E-02 

0.453E+02 

0.0 

-79793. 

63.5 

62.1 

1.5 

-0.0 

0.316E-O2 

G - 404E+02 

0.0 

-93994. 

59.6 

62.2 

1.6 

-0.0 

0.316E-02 

0.332E+02 

0.0 

117902. 

66.5 

62.4 

1.8 

-0.0 

0.316E-02 

O.349E-f02 

0.0 

145887. 

67.1 

62.7 

2.0 

-0.0 

0.316E-92 

8.317E+02 

0.0 

250229. 

58.5 

53.9 

1.6 

-0.0 

0.316E-02 

0 . 362E+02 

0.0 

228785 . 

53.4 

59.  1 

1.5 

-0.0 

0.316E-02 

0 . o96E+02 

0.0 

214575. 

62.5 

59.2 

1.4 

-0.0 

0.316E-02 

0.421E+02 

0.0 

191049. 

57.3 

59.4 

1.3 

-0.0 

0.316E-02 

0. 4632+02 

0.0 

176091. 

61.0 

59.6 

1.2 

-0.0 

O.316E-02 

0.500E+02 

0.0 

151685. 

62.2 

59.3 

1.1 

-0.0 

0.316E-02 

S . 555F+02 

0.0 

136797. 

59.7 

60.0 

1.0 

-0.0 

0 . 3 16E-02 

0.59SE+O2 

0.0 

113023. 

61,8 

60.2 

1.0 

-9,0 

0.316E-G2 

0.6332+02 

0.0 

98131. 

58.9 

60.3 

0.9 

-0.0 

0.316E-O2 

0 . 653E+02 

0.0 

74795. 

49.8 

60.6 

0.3 

-0.3 

■ 0.316E-02 

0.665E+O2 

0.0 

60382. 

65.2 

63.7 

0.9 

-0.0 

0.316E-02 

0.655E+02 

0.0 

38436. 

57.9 

60.9 

1.0 

-0.0 

0.316E-O2 

0 . S33w+02 

0.0 

25280. 

56.9 

61.0 

1.0 

-0.0 

0.316E-02 

0.610E+02 

0.0 

5991. 

53.4 

61.2 

1.1 

-0.0 

0.316E-02 

0.571E+02 

0.0 

-6849. 

63.7 

61.4 

1.1 

-0.0 

0.316E-02 

0 . 544E+02 

0.0 

-33511. 

56.7 

61.6 

1 .3 

-0.0 

0.316E-02 

0.43SE+02 

8.0 

GIVE  EXTRAPOLfiTION  VALUE  IN  F13.8  FORmi 

END  UITH  VALUE  OF  ZERO 

-175000. 

-0.175E+06  0.629752E+02  0.218421E+01  28. S3  -0 . 96535GE-05  0.316228E-02 

GIVE  EXTRAPOLATION  VALUE  IN  F10.0  FORMAT 
END  UITH  VALUE  OF  ZERO 

0. 


E6 


Example  of  the  output  of  the  POLGEP  program. 


POLGEN  PROGRPM 

FIT  1 DEGREE  POLYNOMIAL  TO  DATA  ON  FILE  7 
TERMS  IN  POLYNOMIAL  U ILL  BE:  1 

REPEAT  SEQUENCE  OF  UP  TO  103  ALLOL'ED  IN  INPUT  FILE 
PROGRAM  WILL  READ  ALL  FORMATS  PROVIDED  THERE  ARE  NO 
ALPHABETIC  CHARACTERS 

LEAST  SQUARES  FIT  UILL  BE  UNUEIGHTED 

TITLE  OF  INPUT  FILE  IS 

POOLED  E’S  FROM  PP  IN  VAC  AI^RIL  73  FRCM  PPVAC  1,2, 3, 4, 5, 6 
1 LINES  OF  TEXT  UILL  BE  SKIPPED  AFTER  TITLE 
500  POINTS  MAX  UILL  BE  READ  IN 
20  ARGUMENTS  PER  LINE 

ARGUMENTS  ARE  TO  EE  SAVED  IN  CALLING  ARRAY  X AG  FOLLOUS: 
X(l)  IS  ARGUMENT  NUMBER  2 

X(2)  IS  ARGUMENT  NUMBER  3 

X(3)  IS  ARGUMENT  NUMBER  5 

SCALE  FACTORS  APPLIED  TO  INPUT  VALUES  ARE: 

0. 100000E-t01  FOR  INPUT  VALUE  NUMBER  2 

0. 100000E-tBl  FOR  INPUT  VALUE  NUMBER  3 

0.100000E+31  FOR  INPUT  VALUE  NUMBER  5 


54  DATA  READ  FROM  FILE  7 


Y 


S3G  Y 


0.643030E+02 

0.584320E+02 

0.637540E+02 

0.617260E+02 

0.538680E+02 

G.74S33GE+02 

0.602800E+02 

0.586S00E+02 

0.6069SOE+02 

0.61S540E+02 

0.568920E+02 

0.613330E+02 

0.6B9S80E+02 


0.903000E+00 
9. 120500E+01 
9.  1056e0E-r01 
0.11 1402E+31 
0.671000E-f0O 
0. 14S563E+01 
0.25500GE+0S 
0.3520Q0E+39 
0.545000E+00 
0.495000E+00 
0 . 6b6030E'T00 
0 . 504000E+00 
0 .894080E+00 
0.543000E+00 
0.110400E+01 
0.554000E+33 
0 . 633000E+00 
0. lB6S0aE+Oi 
0.60700GE+00 
0.736000E+C0 
0. 1052O0E+01 
0 . 600090E+00 
0,956800E-r0a 
a.94600OE+aO 
0. 164200E+O1 
0.402030E+60 
■0.596O00E+G0 


0.333237E+05 
0.  190721E+05 
-0.427110E-t-05 
-0.53S152E+35 
~0 . 1 009 i cE+3b 
-0.  I2StSSE4-3S 
0 . 1302S2E+0S 
0.972653E+G5 
0.54753SE-!-35 
0 . 3S77b7E-r05 
0. 125423E+95 
-0.256341E-rO5 
-P.539 170E+05 
-0.332575E+05 
-0.637095E+05 
-0.7S5S23E+35 
-0.996102E-I-05 
-0. 121597E+8b 
0.75SO7cE+05 
0.267564E+05 
-9.231073E+O5 
-0. 663374E-r05 
-0. I05713E+06 
-9.  132&62E+06 
0.  1829.0  lE+06 
0.  104814E+06 
0.78 128 lE+05 


0.535370E+02 


0.5437S0E+02 
0.6049I0E+02 
0.627630E+02 
0.3939 10E+02 
0.58975GE+02 
0.672830E+92 
0.6S66S0E+02 
0.632920E+92 
0.699310E+02 
0.732750E+02 
0.723400E+O2 
0.603300E+02 
0.625450E+32 
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8.693S00E^■O^ 

e.631620E+02 

0.596r40£+02 

0.594S00E+02 

0.603243E+02 

0.f24728E+02 

0.623170E+02 

0.63519aE+a2 

0.5J391OE+02 

0.63522OE+02 

0.671330E+O2 

0.58.'.'52f)E-t02 

0.533‘J63E+02 

0.624728E+02 

0.572580E+02 

0.6O9370E+O2 

0.E22200E+02 

0.53&570E+02 

0.61O310E+02 

0.5B3270E-O2 

0.4979SOE-fa2 

0.G51810E+02 


0.31700OE+00 
0.434aoe£+0O 
0.3540002+00 
0.5800032+00 
0.309000E+Q0 
0.581003E+00 
0.347000£reO 
0.7520O0E+00 
0.4bS000E+O0 
0.747000E+0O 
0.538O30E+03 
0.4_E0'.i0E+00 
0.466Cy3E+G0 
0.3538O0E+O0 
0.4330002+03 
0.3300J0E+00 
0.717000E+0a 
0.5400-:02  1-00 
0.4S2O  J0E  -00 
0.E7Ov5oO'+00 
0.4330032+00 
0.42O-.  JOE+aa 


0.5785208+02 

O.5<J3240F+G2 

0.533E30E-O2 

0.b389U0E+32 

0.5£6340E+a2 

POLYHOMIfL  CCEFFICIlNTS  fiRE 


0.63'0-J0E-0J 
0.551030I--03 
0.8528002+03 
0. 5030002+03 
0. 5810032+00 


0 . 6053 1 E£2E+  02  0 . 30  333S43E+  00 
-0.965343G3E-05  0 . 784.J4409E-05 


CHISQR  - 0.332E+02 
FTEST  • 0. 15IE+01 
RnUL  • 0.168E+OO 


0.625377E+O5 
0.3S629SE+C5 
0.247912E+05 
0.42B62OE+O4 
-0.917900E+C4 
-0.3E6e37E+05 
-0.515183E+O5 
-0.7979342+05 
-0.9399332+05 
-0.  1175022+08 
-0. 1455372+06 
0.25022-2+06 
0 . 2207052+06 
0.2145752 -05 
0.  19:0435*06 
0.  1763312+06 
0.  151G35E+06 
0.  1357972+06 
3.  1130232+aG 
0.931807i:+a5 
O.7475-.2.2+05 
0.632.3:72+05 
0.3243642+05 
0.2520322+05 
0.5531332+04 
-0.5343372+04 
-0.3351142+05 


R —0.1652+00 

FITTED  hBOUT  niD  POINT  OF  T-  0.781231E+05 


X 

Y 

FF 

SIGFF 

RF 

SIGRF 

PRECFF 

PRECRF 

38323.7 

64.303 

60.916 

0.962 

-0.965E-05 

0.316E-02 

0.622+02 

0.31E-02 

13072. I 

58.432 

61.102 

1.021 

-0.9G5E-05 

0.3162-02 

0.602+02 

0.31E-O2 

-42711.0 

60.754 

61.693 

1.314 

-0.565E-05 

0.3162-02 

0.472+02 

0.31E-02 

-53915.2 

61.726 

61.800 

1.379 

-0.965E-05 

0.3162-02 

0.452+02 

0.312-02 

-100319.0 

59.053 

62.260 

1.674 

-0.9652-03 

0.3162-02 

0.372+02 

0.31E-U2 

-126635.0 

74.633 

62.509 

1.846 

-0. 9652-05 

0.3162-02 

0.342+02 

0.31E-02 

130262.0 

60.283 

60.028 

0.998 

-e.965E-05 

0.3162-02 

0.602+02 

0.31E-O2 

97266.3 

53.690 

60.347 

0.922 

-O.965E-05 

e. 3162-02 

0.652+02 

0.312-02 

■54753.6 

60.699 

60.757 

0.923 

-0.955E-e5 

0.3162-02 

0.652+02 

0.312-02 

36/76.7 

61.854 

60.931 

0.966 

-0.965E-O5 

0.3162-32 

0.632+02 

0.31E-32 

12542.8 

56.832 

61.165 

1.045 

-0.965C-05 

e. 3122-02 

0.532+02 

0.312-62 

-25634.1 

^ 61.333 

61.533 

1.221 

-0.965E-O5 

0.3162-02 

0.532+03 

0.3.2-52 

-59917.0 

' 60.968 

61.864 

1. 414 

-0.965E-C5 

0.3162-02 

0.442+02 

0.312-02 

-33257.6 

53.537 

61.607 

1.262 

-0.SS5E-O5 

0.3162-02 

0.492+02 

0. 312-02 

-63703.5 

54.379 

61.901 

1.437 

-O.9o5E-05 

0.3162-02 

0.422+02 

0.31E-62 

-76532.3 

63 . 43 1 

C2.G25 

1.517 

-C. 9552-05 

0.3162-02 

0.412+02 

0.312-02 

-996 10., 2 

62.763 

62.247 

1.665 

-0.965E-O5 

0.3162-02 

0.372+02 

0.31E-02 

-121537.0 

39.391 

62.463 

1.912 

-0.965E-C5 

0.31CE-O2 

0.34E+C2 

0.312-02 

75837.6 

53.975 

60 . 554 

0.910 

-0. 9652-05 

0.3162-02 

0.672+32 

0.31E-02 

26755.4 

67.233 

61.028 

0.995 

-0.9G5E-05 

0.31CE-02 

0.612+02 

0.3IE-02 

-23107.3 

69.668 

61.509 

1.2C8 

-0. 9652-05 

•0.3162-02 

0.512+32 

0.31E-02 

-66537.4 

63.292 

61.929 

1.455 

-0.9652-05 

0. 3162-02 

0.47E+O2 

0.31E-C2 

-105713.0 

69.331 

62.336 

1.705 

-8.9652-05 

e. 3162-02 

0.37E+O2 

0.31E-C2 

-1378G2.0 

73.275 

62.550 

1.639 

-0.965E-05 

0. 3162-02 

0.33E+G2 

0.31E-02 

182321.0 

72.340 

59.520 

1.226 

-0.965.2-05 

0.3162-02 

0.452+02 

0.31E-O2 

104314.0 

60.330 

60.274 

0.934 

-0.9652-05 

0.3162-02 

0.652+02 

0.31E-O2 

78128. 1 

62.545 

60.522 

0.910 

-0.9652-05 

0.3I6E-O2 

0.672+02 

0.31E-62 

62537.7 

60.960 

60.692 

0.918 

-0.9652-05 

O.3:GE-02 

0.662+02 

0.31E-C2 

396S3.5 

63. 162 

60.912 

0.961 

-0.9652-35 

0.3162-02 

0.632+02 

0. 312-02 

24791.2 

59.674 

61.047 

1.002 

-0. 9652-05 

0. 3162-02 

0. 612+02 

0.31E-G2 

4236.2 

59.493 

61.244 

1.379 

-0.9652-05 

0.3:62-02 

0.57E+32 

0.3  IE- 02 

-9179.0 

60.324 

61.374 

1.139 

-0.9652-05 

0.3162-02 

0.54E+02 

0.31E-O2 

-3G685.7 

62.472 

61.640 

1.260 

-0.9652-05 

0.3162-02 

0.48E+02 

0.31E-O2 

-51616.3 

62.017 

61.794 

1.365 

-0.9652-05 

0.3)62-32 

0. 452+02 

0.31E-02 

-79793.4 

63.519 

62.056 

1.537 

-0.9652-05 

0.3162-02 

0.4CE+02 

0.312-02 

-93993.6 

59.591 

62.193 

1.628 

-0.9652-05 

0.3162-02 

0.36E+G2 

0. 312-02 

-117902.0 

66.522 

62.424 

1.787 

-0.9652-05 

0.3162-1*2 

0.35E+O2 

0.31E-02 

-145337.0 

67. 133 

62.694 

1.979 

-0.9C52-05 

0.3162-0? 

0.32E+02 

0.3  IE-02 

250229.0 

59.452 

53.970 

1.623 

-0.9G5E-05 

0.5:62-02 

0.36E+Q2 

0.31E-0? 

223735.0 

53.356 

59.077 

1.492 

-0.9652-05 

0.3162-02 

0. 45ci.+C2 

0.31E-02 

21-1575.0 

62.472 

59.214 

1.435 

-e.9652-05 

0.3152-02 

0.42E+O2 

0.312-02 

191043.0 

57.255 

59.442 

1.270 

-0. 3652-05 

0.3:62-02 

0.47E+6'2 

0.3 12-02 

176091.0 

60.387 

59.536 

1.191 

-0.9652-05 

0.3162-02 

0.50E+C2 

0.312-02 

151685.0 

62.230 

59.822 

1.077 

-0.9652-05 

0.3162-02 

0.56E+02 

0.31E-G2 

136797.0 

59.657 

59.965 

1.020 

-0.9252-05 

0.3162-02 

0.5SE+O2 

0. 312-02 

1 13023.0 

61.831 

60.195 

0.950 

-0.9652-05 

0.3162-02 

0.632+02 

0.312-02 

90180.7 

58.927 

63.333 

0.923 

-0.S55E-0S 

0.3162-02 

0.65E+62 

0.312-32 

74794.6 

49.798 

60.564 

0.910 

-0.9552-05 

0.3162-02 

0.67E+02 

0.312-0.2 

60391.7 

65. 181 

60.703 

0.921 

-0.9652-05 

0.3162-02 

6.662+02 

0.312-02 

3S46G.4 

57.652 

60.914 

0.962 

-0. 9652-05 

3.3162-02 

0.632+02 

0.312-02 

25283.2 

56.924 

61.042 

1.000 

-0.9652-05 

0.3162-02 

0.61E+02 

0.312-02 

■ 5931.4 

53.393 

61.223 

1.072 

-0.9652-05 

0. 3162-02 

8.57E+02 

0.312-62 

-6943.9 

63.690 

61.352 

1.123 

-0.965E-05 

O.316E-02 

0.54E+O2 

0.312-02 

-33511.4 

56.654 

61.609 

1.263 

-0.965E-O5 

0. 3162-02 

0.49E+O2 

0.312-02 

TIME 

F 

SIG  F 

PREC  F 

R 

SIG  R PREC  R 

-0. 175E+06 

0.629752E+02 

e.218421E+01 

28.83  -e.96S350E-O5  0.316228E-02  0.00 
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Listing  of  the  various  routines  in  the  POLGEP  program. 


SftSSn 

POLGEN  PROG 
$FORT 
$TRGT  16 

C POLGEN,  A PROGRAM  TO  FIT  A POL'(THOMIAL  TO  DATA  READ  IN  FROM  A FREELY 
C FORMATTED  FILE  USING  SUBROUTINE  GENRED 
C POLGEN  UILL  CALCULATE  VALUES  FROM  THE  POLYflOMIAL 
C AT  SPECIFIED  VALUES  OF  THE  ABSCISSA 

C ALSO,  IT  UILL  CALCULATE  THE  DERIVATIVE  AT  THESE  POINTS 

C 

DIMENSION  DATA<150O),TIMF(!500),A1C5),SIGA1 (5),A2(5),SIGA2(5) 
DIMENSION  NTITLE(35),Ti:250),CC253),SIGC.(:25O),YFIT(25O) 

&,TR(250) ,MC5) ,AC5),SIGAC5),RC5^ 

8c  ,X(10) 

C 

C SET  UP  RUNNING  CONDITIONS 

C 

NTTYI=5 

NTTYO=4 

IN=? 

N0UT=6 

URITE(NOUT,4) 

4FORMAT('D 

URITE<NTTY0,5) 

5 FORMAT ('  POLGEN  PROGRAM,  GIVE  NUMBER  OF  POLYNOMIAL  TERMS' 

8./'  AFTER  CONSTANT  TERM  (FORMAT  I!)') 

READ(NTTYI,6)NTERMS 

IF(NTERMS.LT.Q)STOP 

6 FORMAT  (in 
URITE(WTTYO,70) 

70  FORMAT('  GIVE  DEGREES  OF  POLYNOMIAL  IN  II  FORMAT,  1 PER  LINE') 
READ  ( NTTY 1 , 6 )■  ( M ( I ) , I = 1 , NTERM3 ) 

UR  I TE ( NTTYO , 20 ) NTERMS , I N , ( M ( I) , I = I , NTERMS ) 

20  FORMAT  ('!'/'  POLGEN  PROGRAM'/'  FIT', 12,'  DEGREE' 

8c,'  POLYNOMIAL  TO  DATA  ON  FILE',  12 
8c/'  TERMS  IN  POLYNOMIAL  UILL  BE:', 512/ 

8c/'  REPEAT  SEQUENCE  OF  UP  TO  100  ALLOUED  IN  INPUT  FILE' 

8c/'  PROGRAM  UILL  READ  ALL  FORMATS  PROVIDED  THERE  ARE  NO  ' 

8c/'  ALPHABETIC  CHARACTERS') 

IJRITE  (NTTYO,  60) 

60  FORMAT (/'  UEIGHTED  OR  UNUEIGHTED  FIT  IN  LEAST  SQUARES?' 

8./'  GIVE  1 OR  0 IN  II  FOMAT') 

READ(NTTYI,6)NFIT 
‘ 40  FORMAT (12) 

UR  I TE ( NOUT, 20 ) NTERMS , I N , ( M ( 1 ) , I = 1 , NTERMS ) 
IF(NI-IT.GT.G)URITE(NTTYO,S0) 

IF(NFIT.LE.0)URITE(NTTYO,90). 

1F(NFIT.GT.0)URITE(NOUT,80) 

I F ( NF I T . LE . 0 ) UR ! TE ( NOUT, SO ) 

G0  FORMAT(/'  LEAST  SQUARES  FIT  UILL  BE  UEIGHTED') 

99  FORNAT(/'  LEAST  SQUARES  FIT  UILL  BE  UNUEIGHTED') 

C 

C READ  IN  DATA  USING  GENERAL  READING  SUBROUTINE 

C 

CALL  GENRED  (X,  I EOF,  NTTY  I,  NTTYO,  IN,  NOUT) 

C(1)«=X(1) 
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SIGC(1)=X(2) 

T(I)=X(3) 

DO  100  1=2,250 

CALL  GENREECX, IEOF,HTTYI,NTTYO, IN,NOUT) 

IF(IEOF.GT.0)GO  TO  105 

c(i)=x(n 

S1GC(I)=X(2) 

T(I)=X(3) 

100  CONTINUE 
GO  TO  110 
105  1=1-1 
110  NDATft=I 

URITECNTTYO, I20)NDATfl,  IN 
• 120  F0RmT(//I6,'  DATA  READ  FROM  FILE',  13 
8.//19X, 'Y',  15X, 'SIG  Y',  ISX.'X'/) 

URITE(NTTYO,44)  (C(I  j ,SIGC(  D ,TU)  , I = 1,NDATA) 

44  F0RMAT(3E20.6) 

URITECNOL'T,  120)NDATA,  IN 

URITE(N0UT,44) (C( I) ,SIGCC I) ,T( I) , I=1,NDATA) 

IFCNDATA.GE. (NTERMS+1) )GC  TO  200 
URITE(NTTYQ,210) 

210  FORMATC/'  NOT  ENOUGH  DATA  FOR  THIS  JOB') 

FIT  POLYNOMIAL  AND  OUTPUT  COEFFICIENTS 

200  NHALF=NDATA/2 
TMID=T(NHALF) 

DO  400  I=1,NDATA 
400  TR(I)=T(I)-TMID 

CALL  REGRES(TR,C,SIGC,NDATA,NTERMS,M,NFIT,YFIT,AO,A,SIGAO,SIGA 
&,R,RMUL,CHISQR,FTEST) 

URITE(NOUT, 140)AO,SIGAO 
URITECNTT^O, 143)A0,SIGA0 

140  FORMATC'  POLYNOMIAL  COEFFICIENTS  ARE' , /C2E 15 . 8) ) 

IF(NTERM3.LE.0)GO  TO  143  . 

URITECNOUT, 141 ) (AC  I) , SIGA C I ) , I = 1 , NTERMS) 

URITECNTTYO. 141) (A ( I ) , S IGA C I ) , I = 1 , NTERMS) 

141  F0RMATC2E15.8) 

143  CONTINUE 

URITECNTTYO. I53)CHISQR.FTEST,RMUL, CRC I) , 1=1, NTERMS) 

150  FORMATC'  CHISQR  =',E10.3 
8./'  FTEST  =',E13.3 
RMUL  =',E10.3 
fc/C'  R =',3E10.3)) 

URITECNTTYO, 144)TMID 

144  FORMATC'  FITTED  ABOUT  MID  POINT  OF  T=',E15.6) 

URITECNOUT, 150) CHISQR, FTEST, RMUL, CRC I) , I=liNTERMS) 

URITECNOUT, 144)TMID 

URITECNOUT, 169) 

160  F0RMATC9X,'X',14X, 'Y',13X,'FF',10X,'SIGFF' 

8.,  13X, ' RF ' , 10X, ' S IGRF' , 9X, ' PRECFF' , 9X, ' FRECRF ' /) 

CALCULATE  EXTRAPOLATED  QUANTITIES 

L=1 

DO  205  I=1,NDATA 
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CALL  EXTPOL(AO,A,SIGPlO,SIGPl,NTERnS,TR(D,TR(I),FF.SIGFF,FB,SIGFB 
e.,RF,SIGRF.RB,  IGRB,PRECFF,PRECFB,PRECRF.PRECRD.L,M) 

URITE(iNCUT.  172)T(1)  .C(  n .FF.SIGFF,RF,SIGRF,PRECFF.PRECRF  . 

172  FORmT(F10.  1,3F15,3,2E15.3,2£15.2) 

205  UR ITE ( NTTYO , 1 70) T ( I) , C ( I ) . FF , S I GFF , RF , S ! GRF , FRECFF, PRECRF 
170  FORmT(F7.0.4F9.  1.2E11.3,F8. 1,F7.  1) 

C 

c 

URITE(NOUT,460) 

460  FORMAT (/'  TIME' 

&/12X,'F',SX,'SIG  F',7X,'PREC  F' , 12X, 'R' ,8X, 'SIG  R',7X,'PREC  R' 

&) 

17  UR ITE (NTTYO. 15) 

15  FORMATC  GI^'E  EXTROFOLFlTICN  VALUE  IN  F10.0  FORMAT' 

&/'  END  UITH  VALUE  OF  ZERO') 

REALKNTTYI.  1 DTIME3 
11  FORMATCF1O.0) 

IF(ABS(TIME3) .LT. 0.0001)  GO  TO  939 

TIME5=TIME3-TMID 

TIME5=TIME5 

CALL  EXTPOL(AO.A.SIGAO.SIGA.NTERMS.TIME6,TIME5.FF.SIGFF.FB.31GFB 
i.RF.SIGRF.RB.SIGRB.PRECFF.PRECFB.PRECRF.PRECRB.L.M) 

UR  ITE  (NTTYO,  16)  TIMES,  FB,  S IGFB,  PRECFB.  h^B,  S IGRB.  PRECRB 

16  FORMAT(E10.3,2(2E15.6,F8.2) ) 

UR1TE(NCUT, 16)T]ME3,FB,SIGFB,PRECFB,R3,SIGRB,PRECRB 
URITE(NOUT, 161) 

161  FORMAT(/') 

GO  TO  17 

993  URITE(NCUT,4) 

STOP 

END 


Ell 


$(^SSM 

EXTPOL  PROG 
$FORT 
STRGT  16 

C )jo|ok3Moto*<>|cK)}o)otok5Mo*o(<>Mofn»oK>|oK>lojo;o{otoK^c>tolofo<o)cK>K>K>tc>tot:>to!.^^ 

c 

SUBROUT I NE  EXTPOL ( ftTO , AT, S I G ATO , S I G AT 
gcNTERMS 

&,TIMEF,TIMEB,FACTF,SIGFF, FACTS, SIGFB 

8.,RATEF,  S IGRF,  RATEB,SIGRB,  PRECFF,  PRECFB,PRECRF,  PRECRB,  L,  M) 

C 

C SUBROUTINE  TO  USE  POLYNOMIAL  OF  P=ATO+ATU ) ■4'.TIME>K-^<MC  1) -^AT(2)  ^TIME>fo!<Mi:2) 
C TO  EXTRAPOLATE  TO  VALUES  OF  BOTH  P AND  DP/DT  TO  TIMES  TIMEF  AND  TIMiEB 

C 

C.  ATO  = DEFINED  ABOVE 
C SIGATO  = STANDARD  DEVIATION  OF  ATO 
C AT  = DEFINED  ABOVE 
C SIGAT  - STANDARD  DEVIATION  OF  AT 
C RCHI  = CHI-SQUARE  VALUE  FOR  FIT 

C TIMEF  = TIME  TO  EXTRAPOLATE  TO  IN  FORUARD  DIRECTION 

C TIMEB  = TIME  TO  EXTRAPOLATE  TO  IN  BACKWARD  DIRECTION 

C FACTF  = VALUE  OF  FACTOR  AS  EXTRAPOLATED  FORUARD 

C FACTS  = VALUE  OF  FACTOR  AS  EXTRAPOLATED  BACKWARD 

C RATEF  AND  RATEB  = COFESPONDING  VALUES  FOR  FIRST  DERIVATIVES 
C SIGFF,  SIQFB,  SIGRF.  SIGR3  = STANDARD  DEVIATIONS  FOR  ASO^/E 
C PRECFF, PRECFB,PRECRF, PRECRB •=  PRECISION  OF  EXTRAPOLATED 
C RATES  AND  FACTOR  LEVELS 

C 

C NEDDS  NO  COMMON  BLOCKS  OR  SUBROUTINES 

C 

DIMENSION  AT(NTERMS) ,SIGAT(NTERMS),M(NTERMS) 

C 

C EXTRAPOLATE  FACTOR  LEVEL 

C 

FACTF = ATO 

FACTB=ATO 

SIGFF=SIGAT0>f:>k2 

SIGFB=SIGAT0>»:mc2 

IF(NTERMS.LE.0)GO  TO  50 

DO  40  I=1,NTERMS 

FACTF =FACTF+AT  ( I ) >KT  I MEF>t^h-M  ( I ) 

FACTB=FACTB+ATn)>kTIMEB>^M(  I) 

S I GFF =S  I GFF+ ( S I GAT  < I)  >iiT  I MEF>J<>KM  ( I ) ) xo«2 
SIGFB=SIGFB+(SIGAT(  n»iTIMEB-^-:>f:M(  I)  )>K"K2 
40  CONTINUE 
50  CONTINUE 

SIGFF=SQRT(SIGFF) 

SIGFB--SQRTCSIGFB) 

C 

C EXTRAPOLATE  DERIVATIVE 
C I.E.,  IF  U=A+B>f:T+C’kT>K>K2, 

C THEN  DU/DT-B+2^C>t<T 

C 

RATEF^O. 

RATEB =0. 
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SIGRF=1 .E-04 
SIGRB=l.E-04 
IF(L.EQ.0)GO  TO  120 
IF(NTERNS.LE.0)GO  TO  110 
DO  100  I = l,NTERri3 
J=M(I)-1 

RATEF=RftTEF+FLOftT(J+l)>KAT(n>f:TIMEF«oKj 
RATEB=RATE3+FL0fiT(J+l)>iflTCD>KTIMEB>K>Kj 
S I GRF  =S I GRF+ ( FLOAT ( J+ 1 ) >f;S i GOT ( I) >t<T I riEFxofjJ ) >iox2 
S I GRB =S  I GRB+ ( FLOAT  ( J+ 1)  I GOT  ( I)  >KT  I ) xok2 

100  CONTINUE 
C 

SIGRF=SIGRF-l.E-04 
SlGRB=SIGRB-i .E-04 
IF(SIGRF.LT.0. 1E-04)SIGRF=0. lE-04 
IF(SIGR3.LT.0. lE-04)SIGRB=a. lE-04 

C 

110  SIGRF=SQRT(SIGRF) 

SIGRB=SQRT(SIGRB) 

C 

C EVALUATE  PRECISION 

C 

120  PRECFF=ABS(FACTF/SIQFF) 

PRECFB=ABS (FACTB/S IGFB) 
PRECRF=ABS(RATEF/SIGRF) 

PRECRB=ABS (RATEB/S IGRB) 

RETURN 

END 


SASSM 
FCTN  PROG 
SPORT 
STRGT  16 
C 

C 5Mo|ofoK>K5io!otc>|oK5K>fok:^o(oiofc5ioiC)ioioK>toK>toK>loK>K:lo(oK>fotoK>K>Mo;otofc+oic^ 

c 

FUNCTION  FCTN  (X, I, J. JTERHS^NPTS) 

C 

c 

c FUNCTION  TO  CALCULATE  FITTED  VALUES  FOR  REGRES  SUBROUTINE 

C 

c 

DIMENSION  X(NPTS).JTERMSCJ) 

JEXP=JTERMSU) 

FCTN=X(I)WEXP 

RETURN 

END 
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GENRED  PROG 
SPORT 


SUBROUTINE  GENRED  (X, IEOF,NTTYI,NTTYO, IN,NOUT) 


)K)K>Moi<5tof;)}oK>foM«>K>lo(<>|<>t:>K>}oH>|r,'oioK>JoK>(o;cloK>M:>KMc:=!oj<>K>l<>ioi<>foK>MoloK>K>|c>K>K>K>^^ 


LIRITTEN  BY  BRIAN  DICKENS,  NBS  921-3322 
$$SSS$  VERSION  OF  OCT  23.  1977  35SS$SSS$SS$SSS£$3SSSSS$ 

THIS  IS  ft  SUBROUTINE  FOR  FREE  FORMAT  FREE  SAMPLING  OF  DATA  FILES 
IT  NEEDS  THE  FOLLOUING  RUNCTION: 

READX 

DIMENSION  NTITLE(35). X(D,NX(  100), TEMP ( 100). XSCALECIBO) 


J=0 


READ  IN  INPUT  FILE  INFORMATION 

11  URITE  (NTTYO.IS) 

10  FORMAT ('  INPUT  ROUTINE' 

&/'  GIVE:  LU  NUMBER  OF  INPUT  FILE'  ' 

8./'  NUMBER  OF  LINES  TO  SKIP  AS  TEXT  AFTER  ALLOWING  ' 

&/'  FIRST  LINE  TO  EE  A TITLE' 

&/'  TOTAL  NUMBER  OF  ARGUMENTS  IN  ONE  LINE' 

&/"  ORDINAL  NUMBER  OF  ARGUMENT  TO  BE  CALLED  = XCl)  = ' 

8./'^  DITTO  FOR  X(2)  ,X(3)  ,X(4)  ,XC5)  .XCS) , STOPPING  WITH  0 ' 

8.,  'IF  < 6 AGUMENTS' 

8./'  THEN  NUMBER  OF  POINTS  TO  BE  READ  IN' 

8./'  0 = UPTO  EOF,  MAXIMUM  OF  5S0.') 

IN  = READX  ( IIJ,NERRCR,3,NTTYI,NTTY0,  lEOF) 

IF(IN.NE.NTTVQ)  GO  TO  210- 
URITE(NTTY0.205) 

205  FORMATC/'  5$$  INPUT  FILE  SAME  AS  OUTPUT  SCRATCH  ' 

8.,  'FILE  $$S') 

GO  TO  11 

210  REWIND  IN 

NTEXT  = READX  ( lU.NERROR. l.NTTYI.NTTYO, lEOF) 

NLINE  = READX  ( lU, NERROR, 1 , NTTYI , NTTYO, lEOF) 

IF  (NLINE. LE. 100)GO  TO  14 
URITE  (NTTYO, 13)NLINE 

13  FORMAT  (/'  TOO  MANY  ARGUMENTS  GIVEN  FOR  INPUT  LINE' 

$/'  YOU  GAVE'. IS,'  MAX  IS  100'/'  TRY  AGAIN') 

GO  TO  11 

14  DO  15  I = 1,100 

NX(I)  = READX  C I U, NERROR, 1, NTTYI, NTTYO, I EOF) 

IF  (NX(I) .LE.0)GO  TO  16 

15  CONTINUE 
GO  TO  17 

16  I = I-l 

17  CONTINUE 
MX  = I 

NTOTAL  - READX  ( lU, NERROR. 1, NTTYI, NTTYO, lEOF) 
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IF  (NTOTPlL.LE.O)NTOTfiL  = 500 
IF  CMX.LT.  DGO  TO  1 1 

WRITE  (NTTY0,138) 

138  FORmT  (/'  GIVE  ONE  SCALING  FACTOR  FOR  EACH  INPUT  VALUE') 

DO  139  J = 1,MX 

XSCALE(J)  = READX  ( IU,NERR0R, 1,NTTYI,NTTY0, lECF) 

139  CONTINUE 

BEGIN  READING 

READ(IN,25)NTITLE 

25  FORMAT  (35A2) 

WRITE  (HTTY0,2b)NTITLE,NTEXT,NT0TAL,NLINE, (I,NX(I), 1 = 1,MX) 

26  FORMAT  (/'  TITLE  OF  INPUT  FILE  IS'/35A2 

8./I6.'  LINES  OF  TEXT  WILL  BE  SKIPPED  AFTER  TITLE' 

8./I6,'  POINTS  MAX  WILL  EE  READ  IN' 

&/I6,'  ARGUMENTS  PER  LINE' 

a/'  ARGUMENTS  ARE  TO  BE  SAVED  IN  CALLING  ARRAY  X AS  FOLLOWS:' 
a/('  X(',I1,')  IS  ARGUi-lENT  NUMBER',  13)) 

WRITE  (NTTYO, 141) (X3CALECJ) ,NX<J) , J = 1,MX) 

141  FORMAT  (/'  SCALE  FACTORS  APPLIED  TO  INPUT  VALUES  ARE:' 
a,(/E12.6,'  FOR  INPUT  VALUE  NUMBER', 13)) 

WRITE(NTTYO,250) 

258  FORMATC/'  ARE  ABO’'/E  PARAMETERS  OK?  ANSWER  0 FOR  NO  OR  1 FOR  YES') 
NTEST=READX(IU,NERR0R,3,NTTYI,NTTY0, I EOF) 

IFCNTEST.NE. 1)  GO  TO  1 1 . 

WRITE  (N0UT,26)MTITLE,NTEXT,NT0TAL,NLINE,  CI,NXn),  I = 1,MX) 
WRITECNOUT, 141 ) (XSCALEC J) , NX( J) , J = 1 , MX) 

SKIP  TEXT 

IF  (NTEXT.LE.O)GO  TO  810 
DO  820  I = 1,NTEXT 
820  READ(IN,25)NTITLE 
810  CONTINUE 

READ  IN  A BANK  OF  VALUES 

ENTRY  GENREE 
J *=  0 

NEUREC  = 1 

150  DO  20  I = 1,NLINE 

IF  n.EQ.  DNEWREC  = 3 

TEMP(I)  = READX  ( IU,NERROR,NEWREC, IN,NTTYO, lEOF) 

NEWREC  = 1 

IF  (IEOF.GT.0) RETURN 
IF  (NERROR.GT.B)GO  TO  150 
20  CONTINUE 
J •=  J+1 

FILL  IN  X ARRAY 

DO  30  1 = 1,MX 
L “ NX(I) 

X(I)  «=  TEMP(L) 

X(I)  = X(I)>t=XSCALE(I) 

30  CONTINUE 

IF  (J.EQ.NTOTAL) IE0F=1 

RETURN 

END 
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MftTIHV  PROG 
$FORT 
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Q JKHoM<>iofoioMoM<^:>K>^oK>^oMo^oK>K>to^c^oK>Mo^oK>io^ofc>loK^fc^'c>fo^otc>K>|oK>icK^ 

c 

SUBROUTINE  MATINV  (ARRAY, HORDER, DET) 

C 

C SUBROUTINE  FOR  MATRIX  INVERSION 

C 

DOUBLE  PRECISION  ARRAY, AMAX, SAVE 
DIMENSION  ARRAY(5,5) , IK(5),JK(5) 

DET=1. 

DO  1S0  K=l,NORDER 

C 

C FIND  LARGEST  ELEMENT  ARRAY(I,J)  IN  REST  OF  MATRIX 

C 

AMAX=0. 

10  DO  30  l-K,NORDER 

DO  30  J=K,NORDER 

IF  (DABS(AMAX)-DABS(ARRAY(I,J)))  20,20,30 
20  AMAX=ARRAY(I,  J) 

IK(K)=I 

JK(K)=J 

30  - CONTINUE 

C 

C INTERCHANGE  RODS  AND  COLUMNS  TO  PUT  AMAX  IN  ARRAY(K,K) 

C 


40 

IF  (AMAX)  50,40,50 
DET=0. 

50 

GO  TO  260 
I=IK(K) 

60 

IF  (I-K)  10,80.60 
DO  70  J=1,N0RDER 

?0 

SAVE=ARRAY(K,J) 

ARRAY(K,J)=ARRAY( 

ARRAY(I,J)=-SAVE 

60 

J=JK(K) 

90 

IF  (J-K)  10,110,90 
DO  100  I=1,N0RDER 

SAVE  =ARRAY(  1,10 
ARRAY(I,K)=ARRAY(I,J) 

100  ARRAY(I,J)=-SAVE 

C 

C ACCUMIJLATE  ELEMENTS  OF  INVERSE  MATRIX 

C 

110  DO  130  I=1,N0RDER 

IF  (I-K)  120,130,120 

120  ARRAY(I,K)=-ARRAY(I,K)/AMAX 

130  CONTINUE 

DO  160  1=1,N0RDER 

DO  160  J=1,NGRDER 
IF  (I-K)  140,160,140 
140  IF  (J-K)  150,163,150 

150  ARRAY(  I,  J)  =ARRAY(  I,  J)+ARRAY(  I,K)>KARRAY(K,  J) 
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160  CONTINUE 

DO  1S0  J=l,NORDER 

IF  (J-K)  170,180,170 
170  ARRftY(K,J)=ARRAY(K, 

180  CONTINUE 

ARR8Y(K,K) =1./8M8X 
190  DET=DET>^:AmX 

C 

C RESTORE  ORDERING  OF  MATRIX 

C 

DO  250  L=l,NORDER 
K=NORDER-L+l 
J=IK(K) 

IF  (J-K)  220,220,280 
200  DO  210  I=l,NORDER 

SAVE=fiRRAY(I,K) 

ARRAYC I , K) =-ARRAY( I , J) 
210  ARRAY(I,J) =SAVE 

220  I=JK(K) 

IF  (I-K)  250.250,233 
230  DO  240  J=1,NCRDER 

SftVE=fiRRfiY(K,J) 
ARRAYCK, J) =-ARRAY( I,J) 
240  ARRAY(I,J)=SAVE 

250  CONTINUE 

260  RETURN 
END 


E17 


SflSSM 
READX  PROG 
SPORT 

FUNCTION  READX(IUORD,N,NP,NTTYI,NTTYO, lEOF) 

C 

c VERSION  OF  MAR  9,1977 

C 

C FUNCTION  READX  USUALLY  RETURNS  THE  NEXT  DECIPHER  ISLE  NUMBER  ON  THE 
C INPUT  FILE  =NTTYI=  AS  THE  VALUE  OF  THE  VARIABLE  READX. 

C ANY  CUPUT,  SUCH  AS  ERROR  MESSAGES  OR  THE  PROMPT  CHARACTER, 

C IS  ON  UNIT  NTTYO. 

C 

C IU=  ALPHANUMERIC  INFORMATION  OF  THE  FIRST  1 OR  2 ILLEGAL  NON-NUMER ICAL 
C INFORMATION  ON  INPUT  FILE  NTTYI. 

C N=0  MEANS  NUMERICAL  INFORMATION  SUCCESSFULLY  PROCESSED. 

C N=1  CHECK  ILJ  LORD  FOR  NON-NUMER  ICAL  INFORMATION, 

C (READX=1.  IN  THIS  CASE). 

C NP=1  SEND  ! AS  A PROMPT  CHARACTER  WHEN  NEU  RECORD  REQUIRED. 

C NP=2  READ  A NEU  RECORD. 

C NP=3  DO  BOTH  THE  ABOVE. 

C NTTYI = INPUT  UNIT 

C NTTYO=  OUTPUT  UNIT  FOR  PROMPT  CHARACTER  AND  ERROR  MESSAGES. 

C IEOF=0  END  OF  FILE  NOT  YET  REACHED  ON  UNIT  NTTYI. 

C IEOF=l  END  OF  FILE  FOUND  ON  NTTYI. 

C 

C ILLEGAL  INFORMATION: 

C 

C IF  FIRST  CHARACTER  IS  NOT  A BLANK,  COMMA,  POINT,  MINUS,  OR 
C A NUMBER,  THE  FIRST  2 ILLEGAL  CHARACTERS  ARE  RETURNED  IN  =IU=. 

C 

C LEGAL  INFORMAT  I ON>k 

C 

C LEADING  BLANKS  ARE  IGNORED. 

C LEADING  COMMAS  ARE  IGNORED. 

C DECIMAL  POINTS  AND  EXPONENTIAL  TYPE  NUMBERS  ARE  TREATED  CQRRCECTLY. 

C $ ON  THE  INPUT  FILE  IS  PRESUMED  TO  PRECEED  AN  IN-LINE  CCM.^ENT  AND 
C CAUSES  READING  OF  A NEU  RECORD. 

C NUMBERS  ARE  TERMINATED  BY  A BLANK,  COMMA,  OR  BY  THE  END  OF  A RECORD. 

C 

C 

C READX  UAS  ORIGINALLY  URITTEN  BY  FRANK  MCCRACKIN  (KBS)  AND  UAS  MODIFIED 
C BY  FRED  MOPSIK  AND  BY  BRIAN  DICKENS.  (JAN  1977) 

C 

C 

c 

INTEGER  BRANCH 

INTEGER>K2  CD, DEC,  IU2,N1,J,  lEXP,  lEXPl 
LOGICAL  ISIGNE 

DIMENSION  CD(80),DEC(I0),TEN(10) ,TENTEN(10) 

DATA  DEC/'0’,'  r, '2', '3', '4', '5', '6', '7', '8', '9'/ 

DATA  TEN/1. , 1 .El , 1 .E2, 1 .E3, 1 .E4,  1 .E5,  1 .E6,  1 .E7, 1 .E8. 1 .E9/ 

DATA  TENTEH/1 . , 1 .E10, 1 .E20,  1 .E30,  1 .E40,  1 .E50,  1 . E60, 3><<1 . E70/ 

DATA  Nl/81/ 

IF  (NP.EQ.2.0R.NP.EQ.3)  N1  = 81 
lEOF  = 0 
N 0 


E18 


SIGN  = 1. 

X = 0. 

Y = 1. 

YJ  - 0. 

C 

C FIND  FIRST  CHARPCTER 
C 

15  IF  (N1.GT.80)  GO  TO  1080 

IF  (CD(Nl) .EQ. '$' ) GO  TO  1000 
ASSIGN  16  TO  BRANCH 
GO  TO  2000 

16  GOTO  (40, 100,30,20,20,300), IP 

20  N1  = NH-1 

GO  TO  15 
C SET  SIGN 
30  SIGN  = -1. 

N1  = Nl+1 
GO  TO  15 
C 

C CALCULATE  NUMBER 
C 

40  X = J 

50  N1  = Nl+1 

IF  (N1.GT.80)  GO  TO  270 
IF  (CD(Nl) .EQ.'E')  GO  TO  50 
ASSIGN  70  TO  BRANCH 
GO  TO  2800 

70  GOTO  (75, 100,205,200,270,270), IP 

75  X = X>H10.+J 

GO  TO  50 

C 

C CALCULATE  FRACTION 
C 

100  CONTINUE 
110  N1  = Nl+1 

■ IF  (N1.GT.S0)  GO  TO  270 

IF  (CD(Nl) .EQ.'E')  GO  TO  110 
ASSIGN  125  TO  BRANCH 
GO  TO  2000 

125  GO  TO  (130, 3055, 205, 200, 270, 270),  IP 

130  YJ  = 10.>KYJ+J 

Y •=  10.>KY 
GO  TO  110 

C 

C CALCULATE  EXPONENT  I EXP 
*C 

200  ISIGNE  = .FALSE. 

lEXP  = 1 
lEXPl  = 1 
GO  TO  210 

205  ISIGNE  = .TRUE. 

lEXP  = 1 
lEXPl  = 1 
210  N1  = Nl+1 

IF  (N1.GT.80)  GO  TO  250 
ASSIGN  220  TO  BRANCH 
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GO  TO  2000 

220  GO  TO  (230,250.250,250,250,250), IP 

230  lEXPl  = I EXP 

lEXP  = J+1 
GO  TO  210  - 

250  IF  (ISIGNE)  GO  TO  2S0 

READX  = SIGN»s(X+YJ/Y)>HTEN(IEXP)^TENTEN(IEXPl) 

N *=  0 
RETURN 

260  REfiDX  = SIGN>K(X+YJ/'r')/(TENnEXP)>KTENTEN(IEXPl)) 

N = 0 
RETURN 

270  READX  = SIGN*(X-!-YJ/Y) 

N = 0 
RETURN 

C 

C RETURN  ALPHA  ARG 

C 

300  IU.I2  = CD(Nl) 

N1  = Nl+1 

IF  (N1.GT.80)  GO  TO  302 

IF  (CD(Nl).EQ.'  ' .OR.  CD(N1 ) .EQ. ' , ' .OR.  CD (N 1) . EQ . ' S' ) GO  TO  302 
IU2  = UJ2-X'20'+CD(N1)/X' 100' 

N1  = Nl+1 
302  lUORD  = ILt2 
N = 1 

READX  = 1. 

RETURN 

3055  WRITE  (NTTYO,3056)N1 

3056  FORMATC'  2d  . AT  COL. ',13)- 
GO  TO  270 

1000  N1  = 1 

IF  (NP.EQ.  1.0R.NP.EQ.3)  WRITE  (NTTY'O,  1020) 

1020  FORMATC'  !') 

READ  (NTTYI, 1010, END  = 9000)  CD 
1010  FCRMAT(88A1) 

GO  TO  15 
C 

C CHARACTER  INTERP.  ROUTINE 

C 

2000  DO  2010  J = 1,10 

IF  (CD(Nl) .EQ.DEC(J))  GO  TO  2020 
2010  CONTINUE 
IP  = 6 

IF  (CD(Nl).EQ.'.')  IP  = 2 

IF  (CD(Nl) .EQ.'-')  IP  = 3 

IF  (CD(Nl) .EQ.'+')  IP  = 4 

IF  (CD(Nl).EQ.'  ' .OR.  CD (N1 ) .EQ . ' , ' ) IP  = 5 
GO  TO  2030 
2020  IP  - 1 
J - J-I 

2030  GO  TO  BRANCH 
9000  lEOF  = 1 
RETURN 
END 
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C 
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c 

SUEROUT 1 NE  REGRES  (X, Y,  S I GMOY,  NPTS , NTERriS , M,  mDE , YF 1 T.  flO . fl , S I GMSO, 
2 SIGMfiO,R,RN!JL,CHISQR,FTEST) 


C 

c 

C NEEDS  THE  FOLLOUING  FUNCTION  RND  SUBROUTINE: 

C FCTN 

C MATINV 

C 

c 

DOUBLE  PRECISION  ARRfiY,SUn, YriERN,SIGm.CHISQ,XnEAN,SIGn.qX 
DIMENSION  X(NPTS)  ,Y(NPTS)  ,SIGMHY(N'PTS),MC5),YFIT(NPTS) 
8.,SIGMFiH(5),R(5),A(5; 

DIMENSION  UEIGHT(250),XMEAN(5),SIGMAXC5),ARRfiY(5,5) 

C 

C INITIALIZE  SUMS  AND  ARRAYS 

C 

SUM=0. 

YMEAN=0. 

SIGMA=0. 

CHISQ=0. 

RMUL=0. 

DO  10  1=1, NPTS 
10  YFIT(I)=0. 

IF  (NTERMS.LE.0)  GO  TO  30 
DO  20  J=1,NTERMS 
XMEAN(J)=0. 

SIGMAX(J)=0. 

R(J)=0. 

A(J)=0. 

SIGMAA(J)=0. 

DO  20  K=1,NTERMS 
20  ARRAY(J.K) =0. 

30  CONTINUE 
C 

C ACCUMULATE  WEIGHTED  SUMS 

C 

DO  110  1=1, NPTS 

IF  (MODE)  40,70,80 
40  IF  (Y(I))  60,70,50 

50  UEIGHT(I)=1./Y(I) 

GO  TO  90 

60  UEIGHT(I)=l./(-Y(I)) 

GO  TO  90 

70  UEIGHT(I)=1. 

GO  TO  90 

60  UEIGHT(I)  = l./SIGMAY(I)>«ot:2 

90  SUM=SUM+WEIGHT(I) 

YMEAN=YM£AN+UE  IGHT(  I ) H<Y<  I ) 
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IF  (NTERMS.LE.0)  GO  TO  110 
DO  100  J=l,NTERriS 

100  XME AN ( J ) =XriE AN ( J ) +UE I GHT ( I) >;<FCTH ( X,  I , J , M, NPTS ) 

110  CONTINUE 

YMEAN=YMEAN/SUri 
IF  (NTERM3.LE.0)  GO  TO  130 
DO  120  J=1,NTERMS 
120  XnEAN(J)=XMEAN(J)/SUM 

130  CONTINUE 

FNPTS=NPTS 
UMEAN=SUn/FNPTS 
DO  140  I=1,NPTS 

143  UEIGHTi:i)=UEIGHT(n/U.'nEAN 

c 

C ACCUr-L'LATE  MATRICES  R AND  ARRAY 

C 

DO  150  I=1,MPTS 

S I GMA =S  I GMA+UE  I GHT  ( I)  >;<  C Y C I)  - YMEAN ) 

IF  (NTERMS.LE.0)  GO  TO  160 
DO  150  J=1,NTERMS 

SIGMAX(J)  =S1GMAX(J)+LJEIGHT(  I)>f<(FCTN(X.  I,  J,M,NPTS)-XMEANCJ)  )>M<2 
R(J)=R(J)+l!EIGHT(I)>x(FCTN(X,  I,  J,M,NPTS)-XMEAN(J))>;<(Y(I)-YMEAN) 
DO  150  K=1,J 

ARRAY(J,tO=ARRAY(J.K)+lJEIGHT(I):!<(FCTN(X,  I,  J,M,NPTS)-XMEAN(J)) 

2 5{i(FCTN(X,  I,K,M,NPTS)-XMEAN(K)) 

150  CONTINUE 
160  CONTINUE 

FREE1=NPTS-1 

SIGMA=DSQRT(SIGMA/FREE1) 

. IF  (NTERMS.LE.0)  GO  TO  1S0 
^ DO  170  J=1,NTERMS 

S I GMAX ( J ) =DSQRT ( S I GMAX ( J ) /FREE  I ) 

R(J)=R(J)/(FREEi  'i;S  1 GMAX  C J ) >i'-S  1 GMA ) . 

DO  170  K=1.J 

ARRAY(JJO=ARRAY(J,K)/CFREEl>t<SIGMAX(J)>KSIGMAXCK)) 

170  ARRAY(K,J)=ARRAY(J,K) 

180  CONTINUE 

C 

C INVERT  SYMMETRIC  MATRIX 

C 

IF  (NTERMS.LE.0)  GO  TO  200 
CALL  MATINV  (ARRAY,NTERMS,DET) 

IF  (DET)  203,190.200 
190  AO=0.  . 

SIGMAO=0. 

RMUL=0. 

CHISQR=0. 

FTEST=0. 

GO  TO  330 
C 

C CALCULATE  COEFFICIENTS.  FIT,  AND  CHI  SQUARE 

C 

200  AO=YMEAN 

IF  (NTERMS.LE.0)  GO  TO  230 
DO  220  J=1,NTERMS 

DO  210  K=1.NTERMS 
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210 


DO  220  I=1,NPTS 
220  YFIT(I)=YFIT(I)+P(J)HcFCTN(X,  I,J,M,NPTS) 

230  CONTINUE 

DO  240  I=1,NPTS 

YFIT(D=YFIT(I)+PO 

240  CHISQ=CHISQ+UEIGHT(  I)>K(Y(I)-YFIT(I))>tok2 

FREEN=NPT3-NTERMS-1 
CHISQR=CHISQ>kUMEPN/FREEN 

c 

C CftLCULftTE  UNCERTAINTIES 

C 

IF  (MODE)  250,260,250 
250  VftRNCE=l ./UMEAN 
GO  TO  270 

260  VARWCE=CHISQR 

270  IF  (NTERMS.LE.O)  GO  TO  290 
DO  230  J=1,NTERMS 

SIGMAA(J)  =ARRAY(J,  J)WRRNCE/(FREElx<SIGMAX(J)>iofc2) 

SlGMAfl(J) =SQRT(SIGMAA(J) ) 

280  RMUL =RMUL+A  ( J ) ( J ) >kS  I GMAX  ( J ) /S I GMA 

FREEJ=NTERMS 

FTEST= (RMUL/FREEJ) /( ( 1 .-RMUL) /FREEN) 

RMUL=SCRT(RMUL) 

GO  TO  300 
290  CONTINUE 
FREEJ-0. 

FTEST=0. 

RMUL=0. 

300  SIGMAD=VARNCE/FNPTS 

IF  (NTERMS.LE.0)  GO  TO  320 
DO  310  J=1,NTERMS 

DO  310  K=1,NTERMS 

310  ' SIGr-IAO=SIGMAC+VARNCE>t;XMEAN(J)>}cXMEAN(K)>KARRAYCJ,K)/(FREElH-'SIGMA 
2X(J)>KSIGMAX(K)) 

320  SIGMAO=SQRT(SIGMAO) 

330  RETURN 
END 
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File  FIXPOL,  a transfer  file  which  is  used  as  DO  FIXP0L,D0  to 
compile  the  main  routine  for  the  polynomial  fitting  program  and  to 
assemble  the  program. 


2U 

PC  POLGEN, 1D0 
PC  CPL0UT,2D1 
PS  300 
RUN  FORTV 
PC  CRLOUT, IDl 
PC  POLGEB,2D0 
RUN  CAL 
UF  2 
CL 
ZU 

PC  POLGEP. 1D0 
PC  POLGE3,?D0 
PC  READX3-SD0 
PC  REGR3B.SD0 
PC  FCTNB,AD0 
PC  MATIKB,BD0 
AC  E>CTPOB,CD0 
PC  GENREB,DD0 
AC  FORLIB.FD0 
AC  POLGL5.5D0 
RUN  LIBLDR,D0 
CL 
ZU 
TR 


JL.. 
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File  P0LG5 , which  contains  the  appropriate  responses  to  the  program 
LIBLDR  to  make  the  POLGEP  program. 


OUT  1 POLGEP 

BI  3572 

LO  7 

LI  8 

LI  9 

LI  ft 

LI  B 

LI  C 

LI  D 

ED  F 

MftP 

XOUT 

UF  1 

END 
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Memory  map  of  the  POLGEP  program. 


REL  PROGS: 

3572 

POLGEN 

893S- 

REBDX 

fi?40 

MPiTINV 

BF43 

EXTPOL 

C57E 

.COMEX 

C74C 

DLGG 

CESS 

S7 

CEF4 

$3 

D00A 

@1 

D818 

OS 

D0SA 

0F 

D 170 

0L 

D3SC 

02 

D^^7B 

OD 

D4E0 

00 

D4FC 

ON 

D58F. 

0P 

D5BE 

03 

D66C 

.DRTN 

DS94 

.R 

D87E 

BLOG 

DS8C 

E>;p 

DB10 

FLCBT2 

DB43 

.Y 

DBE4 

.U 

DC32 

.COM? 

DCD4 

-S8 

DCFE 

.5 

DD44 

.P 

DDCS 

.M 

DF42 

.I1ES 

DFBS 

• U 

E01C 

0H 

F26S 

ftBS  PROGS: 
HONE 


ENTRY-POINTS: 


895A 

REP.DX 

911E 

REGRES 

BFSC 

EXTPOL 

B4C6 

GENRED 

C580 

.COMEX 

C74E 

BLOG 

CE98 

$7 

CEF6 

*3 

D00C 

01 

D33B 

0S 

D06C 

0F 

D172 

0L 

D36E 

02 

D37C 

0D 

D4E2 

00 

D4FE 

0N 

D590 

0P 

D5C0 

0B 

D66E 

,DRTN 

DS96 

. R 

D880 

BLOG 

DS8E 

EXP 

DB12 

FL0BT2 

DB4B 

.Y 

DBE6 

.U 

DC34 

.COMP 

DCD6 

$3 

DD02 

. 5 

DD46 

.P 

DDCS 

.M 

DF44 

.MES 

DECS 

.U 

E06A 

0H 

COMMON- 

-BLOCKS: 

NONE 


UNDEFINED: 

NONE 


S9FB 

REGRES 

B6C2 

FCTN 

B4B2 

GENRED 

C570 

.D 

CBBC 

DEXP 

CC94 

D3QRT 

CF2C 

DAINT 

CFF0 

0A 

D03A 

DABS 

D054 

.G 

DiA3 

0K 

DIDO 

OM 

D494 

0T 

D4BC 

0E 

D555 

GU 

D5SE 

0V 

D5CE 

.BARG  . 

‘DS10 

.DELiAP 

D6D9 

.A 

D77S 

SORT 

DA92 

AINT 

DB0A 

FLOAT  . 

DB4E 

.Y2 

■DBCE 

AB3 

DC5E 

$6 

DCAS 

.RARG 

DDCS 

.ZERO 

DDOE 

.S 

DE4A 

.0  . 

DEFA 

.0 

DFE8 

.V 

DFF6 

0R 

ASE6 

FCTN 

A76E 

MATINV 

BEA9 

GEHREE 

C572 

.D 

CASE 

DEX? 

CC95 

DSQRT 

CF2E 

DAINT 

CFF2 

OA 

D03C 

DBBS 

D055 

.G 

D1A2 

0K 

D1D2 

0M 

D49G 

0T 

D4BE 

0E 

D553 

00 

D570 

0V 

D5D0 

• DARG 

Dbl2 

■ . L'SLiBP 

D6D2 

.A 

D778 

SORT 

DA94 

AINT 

DB0C 

FLOBT 

DB50 

.Y2 

DBD0 

ABS 

DCb3 

$S 

DCAA 

.RARG 

DD0A 

.ZERO 

■ DD10 

.8 

DE4C 

.0 

DEFC 

.0 

DFEE 

.V 

DFF8 

OR 

E26 
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TABLER,  a FORTRAN  program  to  make ' publication-ready  ^•*  *^ 
tables  from  the  factor-jump  thermogravimetry  save  file. 
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Example  of  output  of  TABLEP  program.  The  input  is  a SAVE  file  from 
TGRUNF  assigned  to  logical  unit  5.  The  output  is  on  units  an 
Use  *AC  SAVE,5D1 
*AS  662 
*AS  720 
*RUN  TABLEP, D1 


DOC 

E 

SIG  E 

T1 

R1 

T2 

R2 

SUT 

(MG) 

74 

44.8 

0.4 

366. 86 ( 

3) 

-60.6C2) 

358. 93 ( 

3) 

-39.0(1) 

14.5 

77 

44.  1 

0.3 

359. 04C 

3) 

-34.4(1) 

359. 03 ( 

3) 

-59.4(1) 

12.7 

ei 

43.5 

0.4 

363. 7S( 

3) 

-43.5(1) 

369. 34 ( 

4) 

-31.7(1) 

10.2 

84 

44.9 

0.3 

369.321: 

4) 

-26.7(1) 

379. 97 ( 

4) 

-45.5(1) 

8.8 

87 

44.2 

0.4 

370. 84( 

4) 

-36.8(1) 

' 3S2.sk 

4) 

-23.8(0) 

6.9 

89 

45.0 

0.3 

363.01 ( 

4) 

-19.6(D) 

373. 02 ( 

3) 

-33.9(0) . 

5.8 

92 

45.2 

0.4 

372. 74( 

3) 

-25.4(0) 

364. 84( 

4) 

-15.4(9) 

4.4 

95 

44.6 

0.4 

380 . 78 ( 

4) 

-20.3(1) 

390. 87 ( 

4) 

-34.2(1) 

2.5 

74 

43.  1 

0.4 

356. 03  ( 

4) 

-32.5(1) 

366. 02 ( 

4) 

-55.7(1) 

15.0 

78 

41.3 

0.4 

365. 82 ( 

4) 

-47.9(1) 

357. 86 ( 

5) 

-31.8(1) 

12.5 

80 

45.4 

0.3 

357. 92 ( 

5) 

-27.0(1) 

367. 94( 

4) 

-45.4(1) 

11.2 

84 

43.2' 

0.4 

367 . 85 ( 

4) 

-33.4(1) 

359. 82 ( 

5) 

-25.5(0) 

9.  1 

86 

44.6 

0.3 

360. 05 ( 

4) 

-21.6(0) 

369. 97 ( 

3) 

-37.4(1) 

8.0 

89 

43.8 

0.4 

369 . 88 ( 

3) 

-30.5(1) 

361. 84( 

4) 

-19.8(0) 

6.4 

90 

45.7 

0.4 

361.97C 

4) 

-16.0(0) 

571.99( 

4) 

CO 

m 

0-1 

1 

5.6 

92 

46.4 

0.5 

371.341: 

4) 

-22.0(0) 

363. 80 ( 

4) 

-14.0(0) 

4.4 

93 

45.8 

0.5 

363. 93 ( 

4) 

-11.6(G) 

3B3. 14( 

7) 

-23.3(2) 

3.8 

39 

44.3 

0.4 

371.99C 

3) 

-47.4(1) 

382. 04( 

2) 

-30.4(2) 

14.2 

54 

44.8 

0.4 

38 1 . 85 ( 

2) 

-74.2(2) 

373. 86 ( 

2) 

-43 .5(1) 

10.5 

63 

46.3 

0.2 

374. 09 ( 

2) 

-41.4(1) 

384. 04( 

3) 

-71.3(1) 

8.4 

76 

44.7 

0.3 

. 86  C 

3) 

-51.5(1) 

375. 83 ( 

3) 

-33.7(1) 

5.5 

82 

45.8 

0.3 

375. 90 ( 

3) 

-25.2(1) 

385. 99( 

3) 

-43.4(1) 

4.  1 

89 

45.5 

0.4 

385. 81( 

2) 

-25.8(1) 

377 . 8 1 ( 

2) 

-16.8(0) 

2.5 

92 

45.3 

0.2 

377. 89 ( 

2) 

-11.4(0) 

393, 93 ( 

2) 

-25.6(1) 

1.8 

15 

45.7 

1.0 

369.91 ( 

2) 

-27.4(2) 

380. 02 ( 

2) 

-47.7(5) 

15.2 

56 

44.0 

0.5 

38 1 . 87 ( 

2) 

-61.0(2) 

373. 87 ( 

2) 

-^9.2(1) 

7.9 

66 

46.0 

0.2 

374. 04( 

2) 

-33.5(1) 

384. 04( 

2) 

-57.7(1) 

6.  1 

78 

45.2 

0.4 

383. 83 ( 

2) 

-41.1(1) 

375. 78 ( 

4) 

-26.7(1) 

3.8 

64 

46.3 

0.3 

376. 05 ( 

4) 

-19.0(1) 

386. 10( 

2) 

-32.3(0) 

2.7 

91 

44.8 

0.4 

385. 83 ( 

2) 

-17.6(0) 

377. 84( 

2) 

-11.5(0) 

1.5 
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Listing  of  the  TABLEP  program. 


SPlSSM 

TABLER  PROG 
SPORT 
C 

C TABLER.  A PROGRAM  TO  MAKE  A TABLE  FROM  TGRUNF  OUTPUT 
C IN  THE  FORM  OF  THE  SAVE  FILE 

C THIS  PROGRAM  IJILL  I'EDIJCE  THE  ACTUAL  L'EIGHT  OF  THE  SAMPLE  IN  M 
C FROM  THE  TEGREES  OF  CONVERSION  AND  THE  ELECTROBALANCE  READING 

C MICROVOLTS  FOR  EACH  SINGl.E  SAMPLE  RUN  (THIS  IS  DETECTED  BY  THE 

C FACT  THAT  THE  DEGREE  OF  CONVERSION  GOES  FROM  HIGH  TO  LOU  PS  ONE 
C SET  OF  DATA  ENDS  AND  ANOTHER  BEGINS). 

C 

C NEEDS  FUNCTION  READX 
C 

C • X IS  DUMMY  VARIABLE 

C 

DIMENSION  NTITLE(09)..A(12,  10.0) 

C 

C INITIALISE  UNITS  AMD  PROGRAM  OUTPUT 

C 

NTTYO=4 

IHFILE=5 

NPRINT=S 

IJRITE(NTTY0,260) 

2B0  FORMAT (//'  TASLER  PROGRAM' 

READ  DATA  FROM  F-ILE  5' 

8./'  PRINT  RESULTS  ON  TERMINAL  AMD  ON  FILE  6'//) 

READC INFILE, 5)NTITLE 
5 FORMAT (40A2) 

URITE(N^RINT,30) 

URITECNTTYO.SO) 

30  FCRMATC' DCC',3X,'E  SIG  E' ,5X, 'Tl' , 10X, 'RT  ,8X, 'T2' 

8,  , 10X, 'R2',  lOX, 'SUT'/67X,'  (MG)'/) 

C 

C READ  IN  DATA 
C 

LOlJ=  1 

G0  DO  10  I=LOU, 100 

X=READX(  IU,NERRCiR, 3,5,4,  lEOF) 

IF( IECF.GT.0)  GO  TO  50 

A(l, I) -READX( IU,NERRCR, 1,5,4, lECF) 

A (2, I)=READX(IU,NERROR, 1,5,4, lEOF) 

X=READX( IU,NZRROR, 1,5,4, lEOF) 

A(3,  I)=READX(Il.j,NERPCR,  1,5,4,  lEOF) 

A (4, I) =READX(IU, MIRROR, 1,5,4,  lEOF) 

A(5,  I)  =PEADX(  III, I'ERROR,  1.5,4,  lEOF) 

ACS,  i)=READXniJ,NERRrjR,  1,5,4,  lEOF) 

A(7,  I)  =READX(  IU,NEi.'.RGR,  1,5,4,  lEOF) 

A (8,  I)-READX(Il),NERROR,  1,5,4,  lEOF) 

X=READX( I U, MIRROR, 1,5,4, I EOF) 

X=READX(  I LJ,  MIRROR,  1,5,4,  I EOF) 

X=READX(  ILJ,NiriROR,  1,5,4,  I EOF) 

A (9,  I)=RIADX(IlJ,NERROR,  1,5,4,  I EOF) 

A (10, I)-READX( ILLNGRRDR, 1,5,4, I EOF) 

A(1 1,  I)  =READX(  IlJ,NERRnR,  1.5,4,  I EOF) 

A(12,  1)  =READX(  III, NEREOR,  1,5,4,  lEOF) 

X=READX(  IlJ.NERRCiR,  1,5,4,  I EOF) 

X=REPDX(  IlJ,NERROR,  1,5,4,  I EOF) 

X=READX(  IlJ,NERROR.  1,5,4,  lEOF) 

IF  (I.EQ. 1)  GO  TO  10 
J = I-1 

. IF  (A(3, I) .GT.A(3,J))  GO  TO  50 
10  CONTINUE 

C 

C calculate  INITIAL  AND  FINAL  SAMPLE  L1IGHTS  FROM  FIRST  AND  LAST  DEGREES 
C OF  CONVERSION  FOR  A SINGLE  SAIPLE  RUN  IN  THE  DATA  STREAM 


F3 


J 


iji  CD 


ooo  nooo  ooo 


( USUALLY  SEVERAL  SINLC-E  SAMPLE  RUNS  ARE  COMBINED  TO  MAKE  UP 
THE  COMPLETE  SET  OF  DATA.) 

50  NDATA=I-1 
D0C1=A(4, 1) 

D0C2-A(4,NDATA) 

SUT1=A(3,1) 

SUT2=A(3,NDATA) 

FACTOR  •■=(  SI. JT 1 -SUT2 )/ C D0C2-D0C 1 ) 

UIN I TL=GUT  1 4-DOC  1 4-FACTOR 
UF  INAL=SUT2-  (100.  -D0C2 ) >i;FACT0R 

CALCULATE  SAMPLE  IJEIGHTS  IN  MG  FROM  INPUT  L'EIGHT 
AND  CALCULAED  FINAL  UEIGHT  OF  SAMPLE 

DO  60  J = 1,TIDATA 

SUT=(A(3,J)-LFINAL)/(20.>::ie08.) 

ISTl-A(G,J)-l:100.+8.5 
IST2=A(  10.  J)>;-M0O.+8..5 
ISRl=A(8,J):ul0.+0.3 
ISR2=A(  12.  J)>t40.-i-O.5 
ID0C=A(4.J) 

E=A(1. J) 

SE=A(2. J) 

T1=A(5. J) 

RI=A(7. J) 

T2=A(9.J) 

R2=A(1 1, J) 

URITE(HPRINT,20)  IDOC. E. SE.Tl , ISTl . R 1 , ISRl , T2.  IST2.R2.  ISR2.SIJT 
WRITE (NTTYO. 20) IDOC. E. SE, T1 . ISTl . R 1 . ISR 1 . T2. IST2.R2. ISR2.SUT 
20  FORMATC 14. F7 . 1 . F6 . 1 . 2 (F3 . 2, ' ( ' . 12. ' ) ' . F7 . 1 , ' ( ' . 1 1 . ' ) ' ) . F 10 . 1 ) 
60  CONTINUE 

SET  UP  FIRST  MEMBER  OF  ARRRAY  OF  DATA  FOR  NEXT  SINGLE  SAMPLE  RUN 

DO  70  J=1.12 
70  A(J. 1)=A(J.  I) 

L0U=2 

IF(IEOF.EQ.O)  GO  TO  88 
100  WRITE (NPR INT. 1 10) 

110  FORMAT('l') 

END  FILE  NPRINT 
END  FILE  NTTYO 
STOP 
END 
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File  FIXTAB,  used  as  DO  FIXTAB,D0  to  recompile  the  TABLE?  program  source 
and  to  make  the  file  assignments  needed  to  reassemble  the  TABLE?  program. 


ZU 

AC  TABLER,1D0 
AC  CAL0UT.2D1 
AS  300 
RUN  FORTV 
AC  CftLOUT, IDl 
AC  TABLED, 2D0 
RUN  CAL 
UF  2 
CL 
ZU 

AC  TABLE?, 1D0 
AC  TABLL5,5D0 
AC  TABLED, 7D0 
AC  READXB,8D0 
AC  FORLIB,FD0 
RUN  L1BLDR,D0 
ZU 
TR 
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File  TABLL5,  which  contains  the  appropriate  responses  to  the  program 
LIBLDR  to  reassemble  the  TABLE?  program. 


OUT  1 TABLEP 

BI  3572 

LO  7 

LI  8 

ED  F 

MAP 

XOUT 

UF  1 

END 


f 
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Memory  map  of  the  TABLEP  program. 


REL  PROGS: 


3572 

TABLER 

5432  REPDX 

5BF6 

.Y 

5BFC 

.Y2 

5C7C 

.U 

5CCP  .ZERO 

5CD2 

. S 

5D03 

.P 

5D8A 

. Q 

5E3P  .0 

5E82 

.MES 

5EF8 

.U 

5F28 

.V 

5F3S  QZ 

5F5C 

0H 

71P6 

ftBS  PROGS: 
NONE 


ENTRY-POINTS: 

5456  REPDX  5BFS  .Y 

5CCE  .ZERO  5CD4  .S 

5E3C  .0  5E84  .MES 

5F38  0Z  5FAfl  @H 


5BFE  .Y2 
5D0P  .P 
5F06  .0 


5C7E  .U 
5D8C  .□ 
5F2E  .V 


COMMON-BLOCKS: 

NONE 


UNDEFINED: 

NONE 
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Appendix  G.  BMPD,  a BASIC  program  for  general  operation  of 
the  computer-interface  combination. 


V • . 
V , V • 
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; n , v 
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Example  of  how  to  use  the  BMPD  BASIC  program. 


User  input  is  underlined. 


BMPD > 2D  1 
>tflC  DflTh;FL.7Dl 
»D0  MIDP5>D1 
BIAS  3572 
END  38B2 
BIAS  33B2 


BASIC  03-84 
LOAD  2- 
BASIC  03-04 
RUN 

GIVE  TITLE 

TEST  Of^  E EALANCE. 

SET  initTal”  cghTdTIton.s , 

X 

give  command 

1T0O000S£. 

Initial  conditions. 


Y OR  N? 


Y OR  N? 


give  input  to  be  read,  finish  UITH  -1 

& 

GIVE  INPUT  TO  BE  READ,  FINISH  UITH  -1 


GIVE  INPUT  TO  BE  READ,  FINISH  UITH  -1 

GIVE  NUMBER  OF  READINGS  8.  TIME  BETUEEN  READINGS 

100, 10 

MtiHeFR  OF  READINGS  IS  109 
NUMBER  OF  INPUTS  IS  2 

TIME  DELAY  BETUEEN  BATCHES  OF  READINGS  IS  10  SECONDS 
INPUTS  ARE  : 

e 

1 


1 .126658  .1454E-2  9 

2 .126637  .1455E-2  19 

3 .126666  .1454E-2  29 

4 .12664  .1454E-2  39 

5 .126653  .1455E-2  49 

6 .126637  .1454E-2  59 

7 .12672  .1455E-2  69 

8 .126691  .1454E-2  79 


Sample  output  file  from  BMPD  program. 


TEST  OF  E BfiLflNCE 
* IT000000R 

NUMBER  OF  REfiDIMGS  IS  100 
NUMBER  OF  INPUTS  IS  2 
TIME  DELAY  EETUEEN  READINGS  IS  10 
INPUTS  ARE  ; 

0 

1 

1 .126658  .1454E-2  9 

2 .126637  .1455E-2  13 

3 .126666  .1454E-2  29 

4 .12664  .1454E-2  39 

5 . 126658  . 1455E-2  49 

6 .126637  .1454E-2  59 

7 .12672  .1455E-2  69 

8 .126691  .1454E-2  79 
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SECONDS 


Listing  of  the  BASIC  program  BMPD. 


10  K£n 

20  REM  PROGRAM  TO  OPERATE  MIDAS  INTERFACE  IN  GENERAL  FASHION 

30  REM  AND  WRITE  RESULTS  ON  A DISC  FILE  IF  REQUIRED 
40  REM 

50  REM  WRITTEN  BY  BRIAN  DICKENS  (NBS) 

60  REM 

70  REM  INITIALISATION  AND  DEFINITION  OF  STRINGS 

80  REM 

90  Z9=0 

100  P9=7 

110  DIM  JSC20) 

120  DIM  Z$(6) 

130  DIM  WS(1)  . . 

140  WS="M“ 

150  DIM  E5(30) 

160  E$="U 
170  DIM  0$(1) 

180  DIM  LS;(Sa),A$(l),CS(20),RS(9).T$(20) 

190  DIM  X(5),Y(8),P$C8),Q5(8) 

200  DIM  Z(8) 

216  PRINT  ON  (4) "GIVE  TITLE" 

220  IF  Z9<2300  THEN  260 
230  UFM  P9 
240  P9--P9+1 
250  Z9=0 

260  INPUT  ON  (5)L$ 

270  PRINT  LS 

280  PRINT  ON  CP9)L$ 

290  P$= "01234567" 

300  Q$= "33555555" 

310  0S="<35>" 

320  T$="<35>IQ:;<=>?R" 

330  U=3S 
340  X(1)=0 
350  X(2)=0 
360  X(3)=.lE-5 
370  X(4)=0 
380  X(5>=.lE-3 
390  REM 

400  REM  PRE-SET  MIDAS 

410  REM 

420  PRINT  ON  (4) "SET  INITIAL  CONDITIONS,  Y OR  N?" 

430  INPUT  ON  (5)A$ 

440  IF  A$="N"  THEN  5G0 

450  PRINT  ON  (4) "GIVE  COMMAND" 

460  INPUT  ON  (5)CS 
470  PRINT  C$;C$ 

480  PRINT  ON  (P9)0$;CS 
490  L=0 

500  CALL  l,U,OS,RS;,L,K 
510  CALL  1,U,CS,RS.L,K 
520  GOTO  420 
530  REM 

540  REM  GET  READY  TO  READ  INPUTS  ON  ANALOG  SCANNER 

550  REM 

560  C$="<35>K0MP3O3>KT" 
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570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

699 

700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 

1049 

1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


ON 

ON 

ON 

OH 

ON 

ON 

ON 

ON 

ON 

ON 


(4) "  GIVE  NUmER  OF  READINGS  8.  TIME  BETUJEEN  READINGS’ 

(5) M,S 

(4) "NUM3ER 
(4) "NUMBER 


(4)  "TIME  DELAY  BETL'EEN  BATCHES  OF  READINGS  IS";S: 


(P9) 
(P9; 
(P9) 
C4)  " 
(P9) 
TO  N 


NUMBER 

NUMBER 


FOR  N=1  TO  8 
PRINT  ON  (4) "GIVE 
INPUT  ON  (5)Y(N) 
Y(N)=Y(M)+1 
IF  Y(N)<=0  THEN  630 
NEXT  N 
N=N-1 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR  J=1 
I=Y(J) 

PRINT  PSn,  I) 

PRINT  ON  (P9)P5;(I,I) 

NEXT  J 

REM 

REM 

REM 

FOR  Nl=l  TO  M 

L=6 

2S="" 

REM 

REM 

REM 

CALL  1,U.TS,ZS,L,K 
R1=VAL(Z$) 

G0SU3  1840 

U=R1 

REM 

REM 

REM 

FOR  J=1  TO  N 
I=Y(J) 

REM 

REM 

REM 

C$(1,2)="<35>K" 
CS(3,3)=P$(I,I) 
C$(4,7)  = "MP31'' 
C$(8,S) =QSCI, I) 
C$1:9,  10)  =“>KT" 
C$(ll,20)=" 

L=0 

REM 

REM 

REM 

CALL  1,U,C$,J$,L,K 

REM 

REM 


INPUT  TO  BE  READ,  FINISH  UITH  -1" 


OF 

OF 


READINGS  IS";M 


INPUTS  IS":N 


SECONDS" 


OF  READINGS  IS";M 
OF  INPUTS  IS";N 


" TIME  DELAY  BETloct: 
INPUTS  ARE  : " 
"INPUTS  ARE 


N READINGS  IS";S;'  SECONDS 


PERFORM  READINGS 


GET  TIME 


LOOP  OVER  INPUTS 


SET  UP  TO  TRIGGER  D’vTl 


TRIGGER 


UAIT 
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1130  REM 

1140  CALL  1,U,U$,J$.L,K 
1150  IF  K=3  THEN  1140 
1160  L=9 
1170  RS="" 

1180  REM 

1190  REM  UNLOAD 

1200  REM 

1210  CALL  1,U,ES,R$,L,K 
1220  REM 

1230  REM  UAIT 

1240  REM 
1250  L=0 

1260  CALL  1,U,U2,J$,L,K 
i270  IF  K=3  THEN  1260 
1280  REM 

1290  REM  DECODE  DVM  READING 

1300  REM 

1310  R=VAL(RS) 

1320  N5=0 

1330  IF  R<0  THEN  N5=l 
1340  R=ABS(R) 

1350  R3=INT(R/103) 

1360  R1=R-R3>K103 

1370  R2=R1-INT(R1/10)^.10 

1380  R=R3>J«X(R2) 

1390  IF  N5=l  THEN  R=-R 
1400  2(J)=R 
1410  NEXT  J 
1420  REM 

1430  REM  PRINT  1,  2 OR  3 VALUES 

1440  REM 

1450  IF  N>1  THEN  1430 

1460  PRINT  ON  (P9) N 1 ;Z(  1 ) ; li 

1470  PRINT  ON  (4)  N1;2C1),U 

1480  GOTO  1620 

1490  IF  N>2  THEN  1530 

1500  PRINT  ON  i:P9)N1;2(1);ZC2);U 

1510  PRINT  CM  (4)  N1;Z(1),2(2),U 

1520  GOTO  1620 

1530  IF  N>3  THEN  1583 

1540  PRINT  ON  (P9) N 1 : Z( 1) ; Z(2) ;Z (3) ; U 

1550  PRINT  ON  (4)  N1,Z< 1) ,Z(2) ,2(3) 

1560  GOTO  1620 
1570  REM 

1580  REM  GENERAL  PRINTOUT 

1590  REM 

1600  PRINT  ON  (4)  N1 ; Z(1 ) ;Z (2) ; Z (3) ; 2 (4) ;Z<5) ;2 (6) ; Z (7) ;Z (8) ;U 

1610  PRINT  ON  (P9)Nl;Z(l);2(2);Z(3);Z(4);Z(5);Z(6);Z(7);Z(3);U 

1620  REM 

1630  REM 

1640  REM 

1650  L=0 

1660  CALL  1,U,CS,R$,L,K 
1670  CALL  1,U,U$, JS,L,K 
1680  IF  K=3  THEN  1670 
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UftIT  LOOP  TILL  TirE  TO  BEGIN  NEXT  BATCH  OF  READING 


1690  REM 
1700  REM 
1710  REM 
1720  R$="" 

1730  L=6 
1740  REM 
1750  REM  GET  TIME 

1760  REM 

1770  CALL  1,U,TS,RS,L,K 
1780  R1=VAL(RS) 

1790  GOSUB  1340 

1800  IF  (Rl-UXS  THEN  1770 

1810  NEXT  N1 

1820  GOTO  1930 

1830  REM 

1840  REM  SUBROUTINE  TO  TIME  IN  SECONDS 

1850  REM 

1860  R2=INT(R1/10O00) 

1870  R3  = INT((Rl-lO000>tR2)/100) 

1880  R4=INT(R1-10030><<R2-100>«R3) 

1890  Rl=R2^3b00+R3^60+R4 
1900  RETURN 
1910  REM 

1920  REM  END  OF  PROGRAM 

1930  REM 

1940  UFM  P9 

1950  GOTO  210 

I960  END 
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Listing  of  MIDAS  file,  used  as  DO  MIDAS, D1  to  allow  BASIC  programs 
such  as  BMPD  access  to  the  MIDAS  interface  between  the  computer  and 
experiment. 


fiC  MIDOBJ, IDl 
BI  0 
LO  1 
ftS  120 
RM  BfiSIC,Dl 
TR 
END 
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Appendix  H 


PABS , a FORTRAN  program  for 
generalized  plotting. 


HI 


File  SETPAB,  used  as  DO  SETPAB,D1  to  make  fil 
to  give  instructions  for  plotting  programs. 


e 


ftS 

120 

AS 

220 

AS 

320 

AS 

420 

AS 

520 

AS 

620 

AS 

762 

AC 

LU3,8D1 

AC 

LU9,9D1 

AC 

VPL0T,AD1 

AS 

B20 

AS 

C28 

AS 

E20 

AS 

F20 

fiSSIGN  INPUT  FILE  fiS  UNIT  B THEN  'RUN  PfiBS' 
TR 


I 


m 


assignments  and 


THEN  'RUN  VCPY' 


Sample  showing  how  to  run  the  general  plotting  program  PADS.  User 
input  is  underlined.  Begin  with  DO  SETPAB,D0  then  assign  input  file  as 
unit  B (e.g.,  AC  INPUT, BDO),  then  type  RUN  PABS,D0. 


PLOT  PROGRAM: 

READS  FROM  FILE  11  AND  WRITES  INTERMEDIATE  FILE  ON 
FILE  8 

RECORD  LENGTH  OF  FILE  8 SHOULD  BE  16  IN  THIS  VERSION 
INPUT  IS  IN  FREE  FORMAT 

GIVE:  NUMBER  OF  LINES  TO  SKIP  AS  TEXT  AFTER  ALLOWING 
FIRST  LINE  TO  EE  A TITLE 
TOTAL  NUMBER  OF  ARGUMENTS  IN  ONE  LINE 
ORDINAL  NUMBER  OF  ARGUMENT  TO  BE  CALLED  = X = 

DITTO  FOR  Y1,Y2,Y3,Y4,Y5,  STOPPING  WITH  0 IF  <5 
THEN  NUMBER  OF  POINTS  TO  BE  READ  IN 
0 o UPTO  EOF,  MAXIMUM  OF  580. 

I 

1 20  5269  16  700 

GIVE  NUMBER  OF  POINTS  (IF  ANY)  TO  BE  USED  IN  INTERPOLATING  ' 
0 - NO  INTERPOLATION,  BUT  DRAW  LINES  BETWEEN  POINTS  PLOTTED 
-1  - DRAW  NO  LINES  AT  ALL,  JUST  PLOT  POINTS 
-2  » DRAW  NO  POINTS  AT  ALL,  JUST  DRAW  LINES 
-3  AND  BELOW  = NO  POINTS  BUT  DRAW  SMOOTHED  CURVES 
WITH  -N  POINTS  USED  IN  INTERPOLATION 

FREE  FORMAT 


I 

L 

GIVE  LENGTH  OF  X AND  Y AXES  IN  INCHES 
0-7.  FOR  X 
0 » 9.48  FOR  Y 

X GOES  ALONG  LENGTH  OF  ROLL  OF  PAPER,  Y GOES  ACROSS 
GIS'E  X VALUE  FIRST 

! 

SJL 

^IVE  AXIS  LABELS  AS  TWO  SETS  OF  12  CHARACTERS 
ONE  PER  LINE  WITH  Y AXIS  FIRST 


'Sample"  wt 

t'lVE"  SCALING  FACTORS  FOR  INPUT  ARRAYS 
FIRST  FOR  X ARRAY  AND  THEN  FOR  EACH  Y ARRAY 

I 

-.001  1 1-1-1  .1 

enter  1 FOR  VERSATEC  SCALING,  NICE  NUMBERS  ON  AXES 

0 FOR  FILL  THE  PAGE  REGARDLESS  OF  AXIS  NUMBERING 
“1  FOR  READ  IN  YC'JR  OWN  PLOT  SCALE  FACTOR 
IF  FILL  PAGE,  GIVE  CONTRACTION  FACTOR  (l.=  EXACT  FIT  OF  PLOT 
TO  PLOT  AREA),  INPUT  OF  0 GIVES  1.0 
GIVE  YOUR  PLOT  SCALE  IF  YOU  SAID  YOU  HAD  ONE 
ALSO  GIVE  1 FOR  MODE  DUMPS  OR  0 FOR  NO  MODE  DUMPS 
I 

1 0 

title  of  INPUT  FILE  IS 
NBS  1475  PE  IN  VAC  4/4/78 

1 Lite  OF  TEXT  WILL  BE  SKIPPED  AFTER  TITLE 


H3 


500  POINTS  MAX  UILL  BE  READ  IN 
20  ARGUMENTS  PER  LINE 


X IS 
V<1) 

ARGUMENT  HUMBER  5 
IS  ARGUMENT  NUMBER 

2 

Y(2) 

IS 

ARGUMENT 

NUMBER 

6 

Y(3) 

IS 

ARGUMENT 

NUMBER 

9 

Y(4) 

IS 

ARGUMENT 

NUMBER 

16 

IS 

ARGUMENT 

NUMBER 

7 

I ' 

I 

I 


I}4 


Sample  input  file  for  PADS  program.  This  file  corresponds  to  the 
example  of  user  input  and  helps  to  explain  the  strange  input  used  there. 


NBS  1475  PE  IN  VAC  4/4/78 

1 66.185  0.374  3559. 

410.55 

418.38 

2 60.586  0.415  4379. 

418.31 

412.36 

3 65.795  0.424  5196. 

412.57 

420.42 

4 64.515  0.626  6013. 

420.22 

414.34 

5 65.877  0.451  6833. 

414.46 

422.32 

6 67.490  0.739  7657. 

422.24 

416.38 

7 60.651  0.546  8480. 

416.35 

424.33 

8 70.924  0.654  9299. 

424.13 

418.31 

9 64.354  0.507  10118. 

418.34 

426.22 

10  62.347  0.652  10935. 

426.13 

420.25 

11  68.952  0.298  11857. 

420.33 


0.233949E+06  0.98 

0.01  -0.2769E+02 

0.23421 lE+06 
0.02  -0.4307E+02 

0.233688E+06 
0,196729E+06  3.39 

0.02  -0.42S0E+02 

0. 196430E+06 
0.02  -0.291SE+02 

0.  197029E+B6 
0.174084E+06  15.48 

0.02  -0.26I0E+02 

0. 174446E+06 
0.03  -0.450SE+02 

0. 173722E+06 
0.  13926 lE+06  23.91 

0.02  -0.4003E+02 

0. 138954E+06 
0.02  -0.'2682E+02 

0. 139567E+06 
0.118442E+06  28.95 

0.02  -0.2391E+02 

0. 118781E+06 
0.01  -0.4123E+02 

0. 118102E+06 
0.868733E+05  36.59 

0.01  -0.3503E+02 

0.866649E+05 
0.01  -0.2313E+02 

0.870326E+05 
0.684536E+05  41.05 

0.01  -0.2155E+02 

0.686979E+05 
0.02  -0.3576E+02 

0.682093E+05 
0.413622E+O5  47.61 

0.02  -0.3034E+02 

0.411567E+05 
0.02  -0.1972E+02 

0.415677E+05 
0.253236E+05  51.37 

0.02  -0.17S7E+02 

. 0.261622E+05 
0.02  -0.3029E+02 

0.254S50E+05 
0.272182E+04  56.97 

0.02  -0.2607E+02 

0.246 120E+04 
0.02  -0.1782E+02 

0.293245E+04 
-0. 121868E+05  60.58 

0.02  -0.1426E+02 

-0. 118062E+05 
0.02  -0.4317E+02 


0.6270E-01 
0. 139407E+02 
0.5493E-O1 
0. 121656E+02 


0.5493E-01 
0. 121d5dE+02 
0.4754E-01 
0. 104863E+02 


0.475‘^E-01 
0. 104363E+02 
0.94S1E-01 
0.209297E+02 

0.9491E-01 
0.209297E+02 
0.5814E-01 
0.  128613E+02 

0.5821E-O1 
0.  125SS2E+02 
0.S803E-01 
0. 19S128E+02 


0.8792E-01 
0. 19570SE+02 
^ 0.8543E-01 
0. 189917E+02 

0.8543E-01 
0.  189917E-!^2 
0.5S38E-01 
0. 128953E+02 


0.5845E-01 
0.  129233E-f02 
0.5194E-01 
0. 114989E+02 

0.51SSE-01 
0. 114740E+02 
0.62S9E-01 
0. 138282E+02 

0.6269E-01 

0.1382828+02 

0.4549E-01 

0.101117E+02 

0.5608E-01 
0. 149867E+02 
0.7241E-01 


82 

81 

81 

81 

81 

80 

80 

81 

81 

82 


82 

82 

82 

81 

81 

81 

81 

81 

81 

82 


82 


436.03 


81 


12  67.287  0.633 


13  68.851  0.546 


14  57.766  0.853 


15  66.534  0.431 


16  57.284  0.912 


17  67.444  0.768 


“0.12567^6+05 

12773.  -0.464356E+05  68.87 

435.88  0.02  -0.3134E+02 

“0.466910E+05 
430.02  0.02  -0.2105E+02 

-0.461803E+05 
13591.  -0.618970E+05  72.51 

430.14  0.01  -0.1680E+02 

-0.616601E+05 
437.96  0.01  -0.2383E+02 

-0.621340E+05 

14416.  -0.821599E+05  77,52 

437.84  0.01  -0.2003E+02 

“0.822975E+05 
431.98  0.02  -0.1426E+02 

“0.820224E+05 

15330.  -0.933407E+05  80,37 

432.04  0.02  -0.1110E+02 

-0.936093E+05 
447.86  0.01  -0.3146E+02 

“0.94272 lE+05 

16247.  -0. 1 17152E+06  85.39 

447.72  0.01  -0.1872E+02 

“0.1172933+06 
441.69  0.01  -0.1336E+02 

“0. 117012E+06 

18184.  -0. 145636E+06  92.89 

457.31  0.02  -0.1185E+02 

“0. 146325E+36 
467.66  0.07  “0. 22633+02 


^ “0. 144946E+06 

0 39.  0 0 0.300E+06  0.0 

0 0 0 0 
0 0 0 
0 0 0 0 
0 0 0 

0 75.  0 0 -0.175E+06  100.0 

0 0 0 0 
0 0 0 
0 0 0 0 
0 0 0 


0. 19229 lE+02 

0.5B65E-01 
0. 1293S3E+02 
0.5772E-01 
0. 127505E+02 

0.5772E-01 
0. 127505E+02 
O.6594E-01 
0. 146792E+02 

0.6602E-01 
0. 147109E+02 
0.5200E-01 
0.  1 14701E^2 

3.6395E-01 
0. 169244E+02 
0. 1026E+00 
0.272634E+02 

0.8340E-01 
0. 184715E+02 
0.3890E-01 
0.86164SE+01 


0.6263E-0I 
0. 167265E+02 
O.6373E-01 
0. 169782E+02 


81 

81 

81 

82 

82 

81 

81 

81 


31 

81 

81 

81 
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Output  of  PABS  program  corresponding  to  sample  input. 


TITLE  OF  INPUT  FILE  IS 
NBS  1475  PE  IN  VfiC  4/4/73 

1 LINES  OF  TEXT  UILL  BE  SKIPPED  PFTER  TITLE 
500  POINTS  mX  UILL  BE  READ  IN 
20  ARGUMENTS  PER  LINE 
X IS  ARGUMENT  NUMBER  5 
Y(l)  IS  ARGUMENT  NUMBER  2 

Y(2)  IS  ARGUMENT  NUMBER  6 

Y(3)  IS  ARGUriENT  NUMBER  9 

Y(4)  IS  ARGUMENT  NUMBER  IS 

Y(5)  IS  ARGUMENT  NUMiSER  7 


SCALE  FACTORS  APPLIED  TO  INPUT  ARRAYS  ARE: 
0.160300E-e2  FOR  X ARRAY 

0.100000E+01  FOR  Y ARRAY  NUMBER  1 

0.100000E+01  FOR  Y ARRAY  NUmER  2 

0.100000E+01  FOR  Y ARRAY  NUMBER  3 

0.100000E+01  FOR  Y ARRAY  NUMBER  4 


0.100003E+00  FOR  Y ARRAY  NUMBER  5 
LET  VERSATEC  SCALE  PLOT 
NO  DUMPS  OF  MODE  TABLE 

SCALED  PLOT  ARRAYS 

X Y1  Y2  Y3  Y4  Y5 


-0.233949E+05 
~0. 19S729E+33 
*e. 174084E+03 
“0. 139261E+03 
•O.118442E+03 
•0.068738E+O2 
‘0.68453SE+02 
-O.413622E+02 
-O.258236E+02 
*0.272 182E+01 
0. 121860E+02 
O.464356E+02 
O.6I8970E+02 
O.821599E+02 
O.933407E+a? 
0.117152E+83 
0. 145636E-K33 
•o.3eec00E+03 
0.  l?5eO0E+03 


0.6S)830E+02 
0.605Bb0E+02 
0.657S58E+02 
0.645159E+O2 
0 . S58770E+02 
0.674300E-t-02 
0.606510E+02 
0.703240E+O2 
0 . 643543E+02 
0.62347OE+02 
0.S89520E+02 
0.672870E+02 
0.688510E+02 
0.5776S0E+02 
0 . 6S534SE+02 
0.572843E+O2 
0 . 674443E+02 
0.390000E+02 
0.758000E+02 


8.980000E+00 
0.99900BE-i-81 
0. 154830E+02 
0.239100E+02 
0.289509E+02 
0 . 35590OE+02 
0.41050OE+02 
0.4761O0E+02 
0.513700E+02 
a.569700E+02 
0.8058008+02 
0.688700E+02 
0.726100E+02 
0.775200E+02 
0.803700E+02 
0.S5S3OCE+02 
0 . 92c900E+02 
0.000000E+00 
0. 100000E+03 


0.276900E+02 
0.428000E+02 
0,261000E+'02 
0.4003038+02 
0.239103E+O2 
0.3533O8E+O2 
0.2155CCE+02 
0.3O34G0E+02 
0. 178700E+02 
0.2637008+02 
0.  142603E+02 
0.3134Q0E+02 
0.  168000E+02 
0.200300E+02 
0.11 lO00E+02 
0.  IG720CE+32 
0.  1 135008+02 
0 . 000000E+00 
0 . 000000E+00 


0.430700E+02 
0.291900E+02 
0 . 450600E+02 
0.2S320OE+32 
0.412303E+92 
a.2313008+02 
0.357600E+02 
0. 197200E+92 
0.332330E+32 
0. 17820BE+02 
0.43I709E+B2 
0.210503E+02 
0.2S8300E+02 
0'.  142500E+02 
0.314503E+02 
0.  133b0GE+02 
0.22SBB3E+02 
0.0000BOE+00 
0 . 000000E+00 


0.4105508+02 
0.41331CE-^C2 
0.412570E+02 
0.426223E+-02 
0,4!4/6?E+O2 
0.42224OE+02 
0.41b350£+02 
O.424130E+02 
0.41S340E+O2 
0.426130E+02 
0.428330E+02 
0.435880E+02 
0.430 14eE+32 
0.437B43E  ‘-'‘'2 
O.432043E+02 
0 . 44772O£'»-02 
0.4573 10E+O2 
0.000O00E+00 
0.000000E+00 
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.00  20.00  ^0.00  00.00  00,00  100.00  120.00 


This  is  an  example  of  a plot  by  PARS  from  a prescaled  TGRUNF  file. 
The  input  file  was  made  with  the  program  FCOPYP  (see  later  in  this 
Appendix).  The  'extra'  lines  are  a result  of  the  scaling  method.  The 
plot  is  intended  to  be  retraced;  the  utility  of  the  method  is  that  many 
plots,  all  on  the  same  scale  so  that  they  can  easily  be  compared,  can  be 
made  entirely  under  computer  control. 


I 

I 

I 

I 

I. 

I 

I 

I 


‘•300.00  -220.00  -140.00  -60.00  20.00  100.00  180.00 

SAMPLE  WT 
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The  following  is  an  unsealed  PABS  plot  made  using  the  same  data  as 
in  the  .scaled  plot  example.  There  are  no  extraneous  lines  but  the  plot 
is  on  a semiarbitrary  scale,  the  sole  requirement  being  rounded  numbers 
in  the  axis  markings. 

The  symbols  are: 

X curve  1 (activation  energy  here) 

+ curve  2 (percentage  extent  of  reaction  here) 

+ curve  3 (rate  1 here) 

® curve  4 (rate  2 here) 

curve  5 (one  tenth  of  temperature  1 here) 

The  program  will  only  plot  5 curves;  therefore  temperature  2 is 
omitted.  The  temperature  plotted  has  been  divided  by  10  to  make  it 
fit  on  the  same  scale  as  E,  etc.  The  sample  weight  has  been 
multiplied  by  -0.001  to  transform  it  from  microvolts  to  millivolts  and 
to  make  the  chronological  sequence  from  left  to  right. 
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.00  20-00  40.00  60.00  80.00  100.00  120.00  140.00  160.00 


“250.00  -190.00  -130.00  -70.00  -10.00  50.00  110.00 

SfiMPLE  NT 
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An  unsealed  PABS  plot  made  using  the  same  data  as  in  the  input 
example.  There  are  no  extraneous  lines  but  the  plot  is  on  a semi- 
arbitrary  scale,  the  sole  requirement  being  rounded  numbers  in  the 
axis  markings. 

The  symbols  are: 

x curve  1 (activation  energy  here) 

+ curve  2 (percentage  extent  of  reaction  here) 

+ curve  3 (rate  1 here) 

® curve  4 (rate  2 here) 

* curve  5 (one  tenth  of  temperature  1 here) 

The  program  will  only  plot  5 curves;  therefore  temperature  2 is 
omitted.  The  temperature  plotted  has  been  divided  by  10  to  make  it  fit 
on  the  same  scale  as  E,  etc.  The  sample  weight  has  been  multiplied  by 
-0.001  to  transform  it  from  microvolts  to  millivolts  and  to  make  the 
chronological  sequence  from  left  to  right. 
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This  file  demonstrates  a somewhat  long  way  of  automatically  plotting 
several  files  without  user  intervention.  The  sequence  AS  520  to  RUN 
VCPY  is  repeated  for  each  plot,  and  the  fifth  line,  AC  PVCAEP,B,  is 
replaced  by  a reference  to  the  file  of  interest.  These  11  lines  can  be 
read  into  the  system  program  EDIT  and  be  written  out  to  another  file 
after  line  5 has  been  replaced.  In  this  way  you  can  build  up  a large 
file  to  make  many  plots.  This  example  as  given  will  produce  2 plots, 
one  of  PVCAEP  and  one  of  PVCCEP.  (If  no  disc  reference  is  given,  as  in 
AC  PVCAEP, B,  the  default  option  is  used.  In  this  example,  the  default 
disc  is  DO.) 


AS  520 
AS  762 

AC  5PABS,5D0 
AC  LU8,8D0 
AC  PVCAEP. B 
RUN  PABS6 
AC  VC0PY5.5 
AC  BLANKS-F 
CP  F.5.80.A 
AC  LU9.9 
RUN  VCPY 
AS  520 
AS  762 

AC  5PABS.5D0 
AC  LUB.BDO 
AC  PVCCEP. B 
RUN  PABS6 
AC  VC0PY5.5 
AC  BLANKS. F 
CP  F.5.80.A 
AC  LU9.9 
RUN  VCPY 
ZU 
TR 


m2 


The  following  seven  tables  show  how  to  produce  scaled  plots  of  many 
activation  files  energy  automatically.  This  table  shows  a driving  file, 
PLOTTH,  whicli  will  plot  the  data  in  files  PP0%05  and  PPVACl.  The  file 
is  used  as  follows: 

*AC  PLOTTH,  EDO 
*TR  E 

Contents  of  the  file  PLOTTH 


ftC  COPYZU.CD0 
TR  C 

ftC  PP0riO5.7D0 
RUN  FCOPYP.D0 
fiC  DSETPft,CD0 
TR  C 

fiC  DOPfiBS.CDO 
TR  C 

AC  COPVZU.CD0 
TR  C 

AC  PPVflCl.?D0 
RUN  FCOPYP,D0 
AC  DScTPA,CD0 
TR  C 

AC  DOPP.BS.CD0 

TR  C 

ZU 

TR 


Contents  of  the  file  COPYZU,  needed  for  automatic  scaled  plotting. 


AS 

AS 

AS 

AS 

AC 

AS 

AC 

AS 

AS 

AS 

AS 

AS 

TR 


120 

220 

320 

420 

FCOPY5»5D0 

620 

JUNK;.6D1 

920 

A20 

B20 

D20 

F20 

E 
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Listing  of  the  FORTRAN  program  FCOPYP,  needed  for  automatic  plotting. 
This  program  copies  the  input  file  and  adds  user  specified  values  as  the 
initial  and  final  values  of  both  the  weight  and  the  activation  energy. 

The  source  language  is  in  file  FCOPYR. 


$Assn 

FCOPYR  PROG 

SFORT 

C 

C PROGRAM  TO  MAKE  TG  DATA  SUMMARY  FILES  PLOT  ON  STANDARD  SCALE 

C 

DIMENSION  NLIN£(40) 

DOC1=0. 

DOC2=100. 

URITE(4.G0) 

60  FORMAT ('  GIVE  ON  SEPARATE  LINES:' 

8./'  INITIAL  SAMPLE  UEIGHT' 

&/"  FINAL  SAMPLE  LEIGHT' 

8./'  LOUEST  ACTIVATION  ENERGY' 

8./'  HIGHEST  ACTIVATION  ENERGY') 

READ (5, 70)  SUT1,SUT2,EL,EH 
70  FORMATCFia.e) 

DO. 10  1 = 1,1000 
READ(7,20,END=30)NLINE 
20  F0RMAT(48A2) 

URITE(6,20)NLINE 
URITE(8,20)NlINE 
10  CONTINUE 

30  URITE(8,40)EL,SUT1.DOC1 
40  FORMATC'  0 ',F5.0,'  0 0 ',E10.3,F7.1 
8./'  0 0 0 0' 
a/'  0 0 0' 
a/'  0 0 0 0' 
a/'  000') 

URITE  (8,40)EH,SUT2,DOC2 

END  FILE  8 

STOP 

END 
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Memory  map 


for  the  FCOPYR  program. 


REL  PROGS: 

3576  FCOPYR  3890  .S 

396C  .V  397ft  QZ 


38C6  .MES 
39ft0  0H 


ABS  PROGS: 
NONE 


ENTRY-POINTS: 

3892  .S  38C8  .MES  394ft  .U 

397C  @Z  39EE  @H 


COMMON-BLOCKS: 

NONE 


UNDEFINED: 

NONE 


393C  .U 
48EP. 


3972  .V 


Sample  input  to  the  FCOPYP  program" to  produce  a scaled  plot.  The 
quantities  are  initial  and  final  sample  weights  and  initial  and  final 
activation  energies.  They  set  extreme  values  for  the  x and  y axes 
respectively. 


300860 . 
-175000. 

39. 

75. 


Contents  of  the  file  DSETPA,  used  in  automatic  plotting 


flS  120 
flS  220 
fiS  320 
AS  420 
AS  520 
AS  620 
AS  762 
AC  LU8,8D0 
AC  LU9,9D0 
AC  VPLOT,AD0 
AS  B20 
AS  D20 
AS  F20 
TR  E 


Contents  of  the  file  DOPABS,  needed  in  automatic  plotting 


AC  5PABS,5D0 
AS  762 
AC  LU3,8D0 
AC  JUNK,BD1 
RUN  PABS,D0 
AC  VCOPY5,5D0 
AC  BLANKS, FD0 
CP  F,5,S0,A 
RU  5 

AC  UJ9,9D0 
RUN  VCPY,D0 
TR  E 


Contents  of  the  file  5PABS,  needed  for  automatic  plotting. 


1 20  5269  16  700 
0 

0 0 

SAMPLE  UT 
--.001  11-1-1  .1 
1 0 


Several  blank  lines  are  needed  in  file  VC0PY5  to  provide  replies 
to  the  VCPY  program. 
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Listings  of  the  FORTRAN  routines  in  the  program  PADS. 


JflSSM 
VPLOT  PROG 
$F0RT 
$TRGT  16 
C 

C PROGRfiM  TO  PLOT  UPTO  5 CURVES  ON  VERSftTEC  PLOTTER,  DEO  VOLENTE 
C PRESENT  VERSION  HPS  530  POINTS  mX  IN  EACH  CURVE 

c 

C URITTEN  BY  BRIAN  DICKENS,  NBS  921-3322 

C VERSION  OF  FEBRUARY,  1978  $$33S3Sj2333S353$$$3S$S$ 

C 

C VERSION  5 UPDATED  TO  INCORPORATE  CHANGES  SUGGESTED  BY  FLOYD  HAUER  (NBS) 

C 

C IT  NEEDS  THE  FOLLO'JING  SUBROUTINES: 

C 

C INTERF 

C HAXMIN 

C MODEP 

C READX 

C AND  THE  VERSATEC  ROUTINES: 

C AXES 

C DRAU 

C MODE 

C NOTE 

C SCAN 

C 

1NTEGER*2  LA3ELXC6) ,LR8ELY(6) 

DIMENSION  NTITLE(35),><C508),Y(500,5),NY(5), TEMP (100) 

&,YSCALE(5)  ,LmSK(5)  ,LSYM3L(5) 

8.,XSTEP(  1801 ) ,SMGOTH(  1001) 

DATA  LMASK/X' FFFF ' . X' 3333 ' , X' 1 1 1 1' , X' 0FBF ' , X' 00FF ' / 

DATA  LSYM5L/24,43,33,33,42/ 

C 

C INITIALISE  I/O  UNITS 

C 

11  NTTYO  = 4 
■ NTTYI  = 5 
NOUT  = 7 
IN  «=  11 
C 

C UNIT  8 IS  URITTEN  BY  SUBROUTINES  NOTE  (FOR  SYMBOL  PLOTTING)  AND 
C DRAU  (FOR  LINE  DRAUING) 

C 

NPLOT  = 8 
REUIND  NPLOT 
URITE  (NOUT, 1) 

1 FORMAT  ('D 

C 

SAME  = 9999. 

DO  5 I = 1,5 
5 NY(I)  = 6 
XLENG  - 0. 

YLENG  = 0. 

C 

C READ  IN  INPUT  FILE  INFORMATION 

C 
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URITE  (NTTYO, 10) IN,NPLOT,NPLOT 
10  FORmT  ('  PLOT  PROGRfin:' 

8./'  REfiDS  FROM  FILE'.  13,'  FiND  URITES  INTERMEDIATE  FILE  ON' 

&/'  FILE'. 13 

&/'  RECORD  LENGTH  OF  FILE'. 13.'  SHOULD  BE  16  IN  THIS  VERSION' 

8./'  INPUT  IS  IN  FREE  FORMAT' 

8./'  GIVE:  NUMBER  OF  LINES  TO  SKIP  AS  TEXT  AFTER  ALLOUING  ' 

8./'  FIRST  LINE  TO  BE  A TITLE' 

8./'  TOTAL  NUMBER  OF  ARGUMENTS  IN  ONE  LINE' 

8./'  ORDINAL  NUMBER  OF  ARGUMENT  TO  BE  CALLED  = X = ' 

&/'  DITTO  FOR  Y1,Y2,'(3.Y4,  Y5,  STOPPING  LJITH  0 IF  <5' 

8./'  THEN  NUMBER  OF  POINTS  TO  BE  READ  IN' 

&/'  0 = UPTG  EOF,  MAXIMUM  OF  508.') 

NTEXT  = READX  ( lU, NERROR, 3, NTTYI , MTTYO, lEQF) 

NLINE  = READX  (lU, NERROR, 1, NTTYI .NTTYO, lEOF) 

IF  (NLINE. LE. 103)  GO  TO  14 
URITE  (NTTYO, 13)NLINE 

13  FORMAT  (/'  TOO  MANY  ARGUMENTS  GIV'EN  FOR  INPUT  LINE' 

8i/'  YOU  GAVE'.  16,'  MAXIMUM  IS  103'/'  TRY  AGAIN') 

GO  TO  11 

14  NX  = READX  ( I U, NERROR. 1 .NTTYI .NTTrO, I EOF) 

DO  15  I = 1.5 

NY(I)  = READX  ( lU. NERROR. 1, NTTYI, NTTYO, lEOF) 

IF  (NY(I).LE.0)  GO  TO  16 

15  CONTINUE 
GO  TO  17 

16  I = I-l 

17  CONTINUE 
MY  = I 

^NTOTAL  = READX  ( lU, NERROR. 1. NTTYI, NTTYO. lEOF) 

IF  (NTOTAL.LE.0)  NTOTAL  = 530 
IF  (MY.LT.l)  GO  TO  11 

DECIDE  HOU  TO  PLOT  CURVES  AND  UHETHER  TO  INTERPOLATE 
URITE  (NTTYO. IB) 

18  FORMAT  (/'  GIVE  NUMBER  OF  POINTS  (IF  ANY)  TO  BE  USED  IN' 

8c,'  INTERPOLATING' 

8./'  0 = NO  INTERPOLATION,  BUT  DRAU  LINES  BETL'EEN  POINTS  PLOTTED' 
8./'  -1  = DRAU  NO  LINES  AT  ALL.  JUST  PLOT  POINTS' 

8./'  -2  = DRAU  NO  POINTS  AT  ALL.  JUST  DRAU  LIMES' 

8./'  -3  AND  BELOU  = NO  POINTS  BUT  DRAU  SMOOTHED  CURVES' 

8./'  UITH  -N  POINTS  USED  IN  INTERPOLATION' 

8./'  FREE  FORMAT'//) 

NPTS  = READX  ( I U. NERROR, 3. NTTYI, NTTYO. I EOF) 

DECIDE  ON  AXIS  LENGTHS 
URITE  (NTTYO. 36) 

36  FORMAT  (/'  GIVE  LENGTH  OF  X AND  Y AXES  IN  INCHES' 

8./'  0 = 7.  FOR  X' 

8./'  0 = 9.48  FOR  Y' 

8./'  X GOES  ALONG  LENGTH  OF  ROLL  OF  PAPER.  Y GOES  ACROSS' 

8./'  GIVE  X VALUE  FIRST'/) 

XLENG  = READX  ( I U.  NERROR.  3,  NTT.' I .NTTYO.  I EOF) 

YLENG  = READX  ( lU.NER.ROR.  l.NTTYI.NTTYO,  lEOF) 
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GET  AXIS  LABELS 
URITE  (N'rrt‘0.27) 

27  FORMAT  ('  GIVE  AXIS  LABELS  AS  TUO  SETS  OF  12  CHARACTERS' 

ONE  PER  LINE  UITH  Y AXIS  FIRST'/) 

READ (NTTY 1,28) LABELY, LABELX 

28  FORMAT  (6A2) 

GET  SCALING  FACTORS  FOR  INPUT  ARRAYS 
URITE  (NTTYO.ISS) 

138  FORMAT  (/'  GIVE  SCALING  FACTORS  FOR  INPUT  ARRAYS' 
t/'  FIRST  FOR  X ARRAY  AND  THEN  FOR  EACH  Y ARRAY') 

XSCALE  = READX  ( lU, NERROR, 3, NTTYI , NTTYO, lEOF) 

DO  139  J = 1,MY 

YSCALE(J)  = READX  ( lU,  NERROR-,  1 , NTTYI , NTTYO,  lEOF) 

139  CONTINUE 

DECIDE  ON  PLOT  SCALING 
URITE  (NTT/O.Bl) 

21  FORMAT  (/'  ENTER  1 FOR  VERSATEC  SCALING,  NICE  NUMBERS  ON  AXES' 
8./'  0 FOR  FILL  THE  PAGE  REGARDLESS  OF  AXIS  NUMBERING' 

8./'  -1  FOR  READ  IN  YOUR  OLJN  PLOT  SCALE  FACTOR' 

&/'  IF  FILL  PAGE,  GTv^  CONTRACTION  FACTOR  (l.=  EXACT  FIT  OF  PLOT' 
&/'  TO  PLOT  AREA),  INPUT  OF  0 GIVES  1.0' 

8./'  GIVE  YOUR  PLOT  SCALE  IF  YOU  SAID  YOU  HAD  ONE' 

8./'  ALSO  GIVE  1 FOR  MODE  DUMPS  OR  0 FOR  NO  MODE  DUMPS') 

NICE  = READX  nU,NERR0R,3,NTTYI,NTTY0,  lEQF) 

IF  (NICE. GT. 1. OR. NICE. LT.-l)  NICE  = 1 

IF  (NICE.EQ.0)  CTRACT  = READX  (lU, NERROR, 1 ,NTTYI , NTTYO, lEOF) 

IF  (NICE.EQ.-l)  SCALE  = READX  ( I U, NERROR, 1 , NTTY I , NTTYO, I EOF) 

IF  (ABS(CTRACT) .LT. 1 .E-12)  CTRACT  = 1.0 
MODER  = READX  ( lU, NERROR, 1 , NTTYI , NTTYO, lEOF) 

OUTPUT  STATUS  QUO 

READ(IN,25)NTITLE  * 

25  FORMAT  (35A2) 

URITE  (NTTY0,2b)NTITLE,NTEXT,NT0TAL,NLINE,NX,  (I,NY(I), I = 1,MY) 
URITE  (N0UT,26)NTITLE,NTEXT,NT0TAL,NLINE,NX, (I,NY(I), I = 1,MY) 

26  FORMAT  (/'  TITLE  OF  INPUT  FILE  IS'/35A2 

8./I6,'  LINES  OF  TEXT  UILL  BE  SKIPPED  AFTER  TITLE' 

8./I6,'  POINTS  MAX  UILL  BE  READ  IN' 

8./I6,'  ARGUMENTS  PER  LINE' 

8./'  X IS  ARGUMENT  NUMBER',  13 

8./C'  Y(',I1,')  IS  ARGUMENT  NUMBER' , 13)  ) 

URITE  (NOUT, 14i)XSCALE, (YSCALE(J),J,J  = 1,MY) 

141  FORMAT  (/'  SCALE  FACTORS  APPLIED  TO  INPUT  ARRAYS  ARE:' 

8./E12.6,'  FOR  X ARRAY' 

8.,(/E12.6.'  FOR  Y ARRAY  NUMBER',  13)) 

IF  (NICE.EQ.0)  URITE  (NOUT, 31) 

IF  (NICE. ME. 8)  URITE  (NOUT, 32) 

IF  (MODER. EQ.O)  URITE  (NOUT. 33) 

IF  (MODER. NE.0)  URITE  (NOUT. 34) 
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31  FORMAT  ('  MAKE  PLOT  FILL  PLOT  PAGE') 

32  FORMAT  ('  LET  VER3ATEC  SCALE  PLOT') 

33  FORMAT  ('  NO  DUMPS  OF  MODE  TABLE') 

34  FORMAT  ('  GIVE  DUMPS  OF  MODE  TABLE') 

IF  (NICE.EQ.0)  URITE  (N0UT,35)CTRACT 

35  FORMAT  ('  CONTRACTION  FACTOR  APPLIED  IS',F19.3) 

IF  (NICE.EQ.-l)  URITE  (NOUT, 136) SCALE 

SKIP  TEXT 

IF  (NTEXT.LE.O)  GO  TO  810 
DO  620  I = l^NTEXT 
820  READ(IN.25)NTITLE 
810  CONTINUE 

136  FORMAT  C'  PLOT  SCALE  FACTOR  READ  IN  IS',F13.4) 

READ  IN  LINE  CONTAINING  PLOT  VALUES 
J = 0 

NPROMP  = 1 

150  DO  20  I = INLINE 

IF  (I.EQ.l)  NPROMP  = 3 

TEMP(i)  = READX  (IU,NERROR, NPROMP,  IN, NTT/TI,  lEOF) 

NPROf'P  = 1 

IF  (IEOF.GT.0)  GO  TO  45 
IF  (NERR0R.GT.6)  GO  TO  150 
20  CONTINUE 
J •=  J+1 

FILL  IN  PLOT  ARRAYS 

X(J)  = TEMP (NX) 

X(J)  = X(J)>i;XSCALE 
DO  30  I = 1, MY 
L •=  NYC  I) 

Y(J,I)  = TEMP(L) 

Y(J,I)  = Y(J,  D^KYSCALEd) 

30  CONTINUE 

IF  (J.EQ.NTOTAL)  GO  TO  45 
IF  (J.LT.500)  GO  TO  150 
45  ME  = J 

OUTPUT  PLOT  ARRAYS 
URITE  (NOUT,411) 

411  FORMAT  (/'  SCALED  PLOT  ARRAYS'/12X, 'X' , 1 IX, ' Yl' , 1 IX, ' Y2' , 1 IX,  ' Y3' 
8.,  11X,'Y4',  11X,'Y5'//) 

DO  400  I = 1,J 

URITE  (NTTY0,410)XCI), (Y(I,K),K  = 1,MY) 

URITE  (NOUT.4I0)X(I), (Y(I,K),K  = 1,MY) 

410  FORMAT  (6E13.6) 

400  CONTINUE 
MCOUNT  = 1 

IF  (MODER.GT.0)  CALL  MODEP  (MCOUNT) 

SET  PLOT  DIMENSIONS 
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IF  (XLENG.GT.0.)  CALL  MODE  (7.XLENG,SRnE,SRnE) 

IF  (YLENG.GT.0.)  CALL  MODE  (7,SP.r£, YLENG-SAME) 

MCOUNT  = 2 

IF  (mDER.GT.0)  CALL  MODEP  (nCOUNT) 

FORM  TRANSFER  FILE  FOR  PLOTS  ON  LOGICAL  UNIT  8 
MYZ  «=  MY-1 

IF  (MYZ.LT.n  GO  TO  12 

VERSATEC  SCALING,  ALUAYS  DONE. 

DO  200  J = 1,MY2 
200  CALL  SCAN  (X,  YH  , J) , NE,  443) 

MAX  AND  MIN  FOR  FINAL  PLOT,  GET  OVERALL  SCALE 

12  CALL  SCAN  (X,Y(1,MY) ,-HE,440) 

MCOUNT  =3 

IF  (MGDER.GT.0)  CALL  MODEP  (MCOUNT) 

CALL  MAXMIN  (XMAX,XMIN,X,NE) 

TO  SCALE  HERE  OR  NOT  TO  SCALE  HERE? 

IF  (NICE. HE. 0)  GO  TO  301 
CALL  MODE  (-2,X1,X2,X3) 

XSCALE  = ((XMAX-XMIN)/(X1-X2))/CTRACT 
CALL  MODE  (3, SAME, XSCALE, SAME) 

CALL  MODE  (-3, Y1 , Y2, Y3) 

DO  449  J = 1,MY 

CALL  MAXMIN  (YMAX, YMIN.VC 1, J) ,NE) 

440  YSCALE(J)  = ( ( YMAX-YMIN) /(V!-'(2) ) /CTRACT 
CALL  MAXMIN  (YMAX, YMIN, YSCALE,MY) 

CALL  MODE  (9, SAME, YMAX, SAME) 

GO  TO  331 

APPLY  READ  IN  SCALE  FACTOR 
301  CONTINUE 

IF  (NICE.NE.-l)  GO  TO  331 
CALL  MODE  (8, SAME, SCALE, SAME) 

CALL  MODE  (9, SAME, SCALE, SAME) 

331  CONTINUE 
MCOUNT  = 4 

IF  (MODER.GT.0)  CALL  MODEP  (MCOUNT) 

SET  SYMBOL  CODES  AND  DRAW  SYMBOLS  (VIA  SUBROUTINE  NOTE) 

IF  (NPTS.LE.-2)  GO  TO  307 
CALL  MODE  (5, SAME, SAME. 440. ) 

DO  300  J = l.MY 

CALL  MOTE  (X, Y( 1, J) .LSYMBL(J) ,-NE) 

300  CONTINUE 

307  IF  (NPTS.EQ.-I)  GO  TO  1001 
IF  (NPTS.LE.-3)  NPTS  = -NPTS 
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IF  (NPTS.GT.0)  GO  TO  309 

SET  LINE  CODES  AND  DRAIJ  LINES  (VIA  SUBROUTINE  DRAU) 

DO  308  J = Krtt' 

L - LMASK(J) 

CALL  MODE  ( 10, FLOAT(L) , SAME, SAME) 

CALL  DRAU  (X, Y( 1, J) ,NE,441) 

308  CONTINUE 
GO  TO  1001 

309  CONTINUE 

DRAU  SMOOTH  CURVES  HERE 
FIRST,  CALCULATE  LENGTH  OF  STEP 

NSTEPS  = MIN0(NE>f<5+l,  1001) 

STEP  = (XMAX-XMIN) /FLO AT (NSTEPS- 1) 

FILL  IN  X ARRAY 

XSTEP(l)  = XMIN 
DO  50  I = 2, NSTEPS 
50  XSTEP(I)  = XSTEP(I-1)+STEP 

INTERPOLATE  Y ARRAY  AT  EVERY  XSTEP  VALUE 

DO  OVER  ALL  = MY  = CURVES 

NHALF  = NPTS/2 
DO  1030  K = 1,MY 

DO  OVER  ALL  XSTEP  POINTS 

I - 1 

DO  900  L = 1, NSTEPS 

FIND  X POINT  CORRESPONDING  TO  XSTEP  POINT  UNDER  CONSIDERATION 
DO  800  J = I,NE 

IF  (X(J)  .GE.XSTEP(D)  GO  TO  700 
800  CONTINUE 
J - NE 

TAKE  =NHALF=  POINTS  ON  BOTH  SIDES  OF  X(J)  IF  POSSIBLE 

700  I » J 

J - J-NHALF 

IF  (J.LT. 1)  J = 1 

IF  ((J+NPTS) .GT.NE)  J = NE-NPTS 

INTERPOLATE 

CALL  INTERF  (X(J) , Y(J,K) ,XSTEP(L) ,SMOOTH(L) ,NPTS) 

900  CONTINUE 

SET  LINE  CODE 
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c 

L - LmSK(K) 

CALL  MODE  ( lO.FLOATCL) ,SRrc,SflME) 
MCOUNT  = 5 

IF  (nODER.GT.0)  CALL  MODEP  (MCOUNT) 

C 

C DRftU  LINE 

C 

CALL  DRALJ  (XSTEP. SMOOTH, NSTEPS, 441) 

1000  CONTINUE 

1001  CONTINUE 
C 

C LABEL  AXES 
C 

CALL  AXES  (I2.2,LABELX, 12.2,LABELY) 
C 

C FINISH  PLOT 
C 

CALL  DRALJ  (0.  ,0. , 1 ,9000) 

CALL  DRAU  (0 . , 0 , , 0, 9999) 

URITE  (NOUT, 1) 

STOP 

END 


$ASSn 

INTERF  PROG 
5FORT 
STRGT  16 

SUBROUTINE  INTERF(X,Y,XHIT,S,NPTS) 

C 

C SUBROUTINE  TO  INTERPOLATE  FOR  VALUE  OF  Y AT  XHIT 

C GOSPEL  ACCORDING  TO  DORN  AND  MCCRACKIN,  "NUMERICAL  METHODS  UITH  FORTRAN 
C CASE  STUDIES",  UILEY,  1972,  PAGE  207 

C 

DIMENSION  X(NPTS),Y(NPTS) 

C 

C XHIT  = VALUE  OF  ARRAY  X TO  INTERPOLATE  TO. 

C Y = ARRAY  USED  TO  GET  INTERPOLATED  VALUE  = S = FOR  X ’VALUE  OF  XHIT 
C NPTS  = NUMBER  OF  POINTS  USED  IN  INTERPOLATION. 

C LINE  NUMBERS  CORRESPOND  TO  NUMBERS  IN  DORN  & MCCRACKIN  FLOW  CHART 

C 

2 I « 1 

3 S = 0 

4 J = 1 

5 P = 1. 

6 IF  (J-I)  7,8,7 

7 P = P>ic(XHIT-X(J))/(X(I)-X(J)) 

B IF  (J-NPTS)  9,10,9 

9  J •=  J+1 
GO  TO  6 

10  2 = P 

11  S = S+2>KY(I) 

12  IF  (I-NPTS)  13,14,13 

13  I = I+l 
GO  TO  4 

14  RETURN 
END 
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$flSSM 

mXMIN  PROG 
SPORT 

STRGT  MftXMIN(XMAX,XMIN,X,N) 

C SUBROUTINE  TO  FIND  MAX  AND  MIN  VALUES  OF  X USING  N VALUES 

C 

DIMENSION  X(N) 

XliAX  = -1.E16 
XMIN  = 1.E16 
DO  10  I = 1-N 

IF  (XMAX.LT.X(D)  XTiAX  = X(I) 

IF  (XMIH.GT.X(I) ) XMIN  = X(I) 

10  CONTINUE 
RETURN 
END 


SASSM 
flODEP  PROG 
SPORT 
STRGT  16 

SUBROUTINE  MODEP(M) 

C 

c SUBROUTINE  TO  PRINT  CURRENT  VALUES  IN  MODE  TABLE  OF  VERSATEC  PLOTTING 
C SOFTUARE 

C 

NOUT  =7 
URITE  (N0UT,5)M 

5 FORMAT  (//'  MODE  TABLE  AT  STAGE  NUMBER' , 13//) 

DO  20  I = 1,9 
J « -I 

CALL  MODE  (J,X,Y,2) 

20  URITE  (NOUT, 10) I,X,Y,2 
10  FORMAT  (I6,3F10.3) 

I = 10 

CALL  MODE  (-10,X,Y,2) 

URITE  (NOUT,30) I,X,Y,Z 
30  FORMAT  (I6,2210,F10.3//) 

RETURN 

END 
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$flSSM 
REftDX  PROG 
$FORT 

FUNCTION  REPDX( IUORD.N,NP,NTTYI,NTTYO, lEOF) 

C 

c VERSION  OF  MAR  9, 1977  $S$S$S3$$$ 

C 

C FUNCTION  READX  USUALLY  RETURNS  THE  NEXT  DECIPHER  I PLE  NUMBER  ON  THE 
C INPUT  FILE  =NTTYI=  AS  THE  VALUE  OF  THE  VARIABLE  READX. 

C ANY  OUPUT,  SUCH  AS  ERROR  MESSAGES  OR  THE  PROMPT  CHARACTER, 

C IS  ON  UNIT  NTTYO. 

C 

C IU=  ALPHANUMERIC  INFORMATION  OF  THE  FIRST  1 OR  2 ILLEGAL  NON-NUMER ICAL 
C INFORMATION  ON  INPUT  FILE  NTTYI. 

C N=0  MEANS  NUMERICAL  INFORMATION  SUCCESSFULLY  PROCESSED. 

C N=1  CHECK  lU  LJORD  FOR  NON-NUMER  ICAL  INFORMATION. 

C (READX=1.  IN  THIS  CASE). 

C NP  = 1 SEND  ! AS  A PROMPT  CHARACTER  U!HEN  NE'J  RECORD  REQUIRED. 

C NP=2  READ  A NEU  RECORD. 

C NP=3  DO  BOTH  THE  ABOVE. 

C NTTYI=  INPUT  UNIT 

C NTTYO=  OUTPUT  UNIT  FOR  PROMPT  CHARACTER  AND  ERROR  MESSAGES. 

C IEOF=0  END  OF  FILE  NOT  YET  REACHED  ON  UNIT  NTTYI. 

C IEOF=l  END  OF  FILE  FOUND  ON  NTTYI. 

C 

C ILLEGAL  INFORMATION: 

C 

C IF  FIRST  CHARACTER  IS  NOT  A BLANK,  COMMA,  POINT,  MINUS,  OR 
C A NUMBER,  THE  FIRST  2 ILLEGAL  CHARACTERS  ARE  RETURNED  IN  =IU=. 

C 

C LEGAL  INFORMATION>h 

c 

C LEADING  BLANKS  ARE  IGNORED. 

C LEADING  COMMAS  ARE  IGNORED. 

C DECIMAL  POINTS  AND  EXPONENTIAL  TYPE  NUMBERS  ARE  TREATED  CORRCECTLY. 

C $ ON  THE  INPUT  FILE  IS  PRESUMED  TO  PRECEED  AN  IN-LINE  COMMENT  AND 
C CAUSES  READING  OF  A NEU  RECORD. 

C NUMBERS  ARE  TERMINATED  5Y  A BLANK,  COMMA,  OR  BY  THE  END  OF  A RECORD. 

C 

c 

C READX  IJAS  ORIGINALLY  URITTHN  BY  FRANK  MCCRACKIN  CN33)  AND  UAS  MODIFIED 
C BY  FRED  MOPSIK  AND  BY  BRIAN  DICKENS.  (JAN  1977) 

C 

c 

c 

INTEGER  BRANCH 

INTEGER>K2  CD,DEC,  IU2,N1,  J,  lEXP,  lEXPl 
LOGICAL  ISIGNE 

DIMENSION  CD(80).DEC(1O),TEN(10),TENTEN(10) 

DATA  DEC/'0','  r.' 2', '3', '4', '5', '6', '7', '8', '9'/ 

DATA  TEN/1.,  I.El,  1.E2,  1.E3M.E4,  1.E5,  1.E6,  1.E7,  l.ES,  1.E9/ 

DATA  TENTEN/1. , 1 .ElO,  1 .E20,  1 .E30,  I .E40,  1 .E50,  1 .E60,3>Kl  .E70/ 

DATA  Nl/81/ 

IF  (NP.ED.2.CR.NP.EQ.3)  N1  - 81 
lEOF  = 0 
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N - 0 
SIGN  - 1. 

X - 0. 

Y - 1. 

YJ  “ 0. 

C 

c FIND  FIRST  CHARACTER 

C 

15  IF  (N1.GT.80)  GO  TO  1000 

IF  (CD(Nl) .EQ.'S')  GO  TO  1000 
assign  16  TO  BRANCH 
GO  TO  2800 

16  GOTO  (40, 100,30,20,20,300), IP' 

20  N1  ° Nl+1 

GO  TO  15 
C SET  SIGN 
30  SIGN  = “1. 

N1  = Nl+1 
GO  TO  15 
C 

C CALCULATE  NUMBER 

C 

40  X - J 

50  N1  = Nl+1 

IF  (N1.GT.S0)  GO  TO  270 
IF  (CDCNl) .EQ.'E' ) GO  TO  50 
ASSIGN  70  TO  BRANCH 
GO  TO  2000 

70--  GO  TO  (75,  100,205,200,270,270),  IP 
75  X - X>H10.+J 

GO  TO  50 

C 

C CALCULATE  FRACTION 

C 

100  CONTINUE 
110  N1  = Nl+1 

IF  (N1.GT.80)  GO  TO  270 
IF  (CD(Nl) .EQ.'E')  GO  TO  110 
ASSIGN  125  TO  BRANCH 
GO  TO  2000 

125  GO  TO  (130,3855,285.200,270,270), IP 

130  YJ  - 10.W+J 

Y - 10.>KY 

* GO  TO  110 

C 

c CALCULATE  EXPONENT  I EXP 

C 

200  ISIGNE  = .FALSE. 
lEXP  <=  1 
lEXPl  = 1 
GO  TO  210 

205  ISIGNE  = .TRUE. 

lEXP  = 1 
^ lEXPl  •=  1 

210  N1  - Nl+1 

IF  (N1.GT.80)  GO  TO  250 
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ftSSIGN  220  TO  BRANCH 
GO  TO  2000 

220  GO  TO  (230,250,250.250.250,250), IP 

230  lEXPl  = lEXP 

lEXP  “ J+1 
GO  TO  210 

250  IF  (ISIGNE)  GO  TO  269 

READX  = SIGN>x(X+YJ/Y)>«TEN(IEXP)*TENTEN(IEXPl) 

N = 0 
RETURN 

260  READX  = SIGN>i<(X+YJ/Y)/(TEN(IEXP)>i<TENTEN(  lEXPl) ) 

N = 0 
RETURN 

270  READX  = SIGN>K(X+YJ/Y) 

N = 0 
RETURN 

C 

C RETURN  ALPHA  ARG 

C 

300  IU2  = CD(Nl) 

N1  «=  Nl  + 1 

IF  (N1.GT.80)  GO  TO  302 

IF  (CD(Nl).EQ.'  ' .OR.  CD(Nl) .EO. ' . ' .OR.  CD(Nl) .EQ. 'S* ) GO  TO  302 
IIJ2  = IU2-X'20'+CD(N1)/X' 100' 

N1  = Nl+1 
302  lUORD  = IU2 
N = 1 

READX  =1. 

REU'RN 

3055  URITE  (NTTYO.305S)N1 

3056  FORMATC'  2d  . AT  COL.', 13) 

GO  TO  270 

1000  N1  = I 

IF  (NP.EQ. 1.0R.NF.EQ.3)  URITE  (NTTYO, 1020) 

1020  FORMATC'  !') 

READ  (NTTYI. 1010, END  = 9000)  CD 
1010  FORMAT(BOAl) 

GO  TO  15 
C 

C CHARACTER  INTERP.  ROUTINE 

C 

2000  DO  2010  J = 1,10 

IF  (CD(Nl) .EQ.DEC(J))  GO  TO  2020 
2010  CONTINUE 
IP  = 6 

IF  (CD(Nl).EQ,'.')  IP  «=  2 

IF  (CD(Nl).EQ.'-')  IP  “ 3 

IF  (CD(Nl) .EQ.'+')  IP  = 4 

IF  (CD(NI).EQ.'  ' .OR.  CD (Nl) .EQ. ' , ' ) IP  » 5 
GO  TO  2030 
2020  IP  = 1 
J = J-1 

2030  GO  TO  BRANCH 
9000  lEOF  - 1 
RETURN 
END 
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Driving  program  LOPABS  which  assigns  files  and  runs  program  LIBLDK 
to  make  the  PABS  plotting  program. 


ftC  PflBS,lD0 
fiS  220 
fiS  362 
flC  PLIB.4D0 
AC  PABSL5,5D0 
AC  FORLIB,6D0 
AC  VPLTB,7DC 
AC  INTERB.BBa 
AC  mXMNB,9D0 
AC  MODEPB,flD0 
AC  READXB,BD0 
AS  C20 
AS  D20 
AS  E20 
AS  F29 

RUN  LIBLDR,D0 

ZU 

TR 


Contents  of  file  PABSL5,  which  supplies  appropriate  responses  to  the 
LIBLDR  program  to  make  the  PABS  plotting  program. 


OUT  1 PABS 
LC  110 
BI  3576 
LO  7 
LI  8 
LI  9 
LI  A 
LI  B 
LI  4 
ED  4 
ED  6 
MAP 
MAP  3 
XOUT 
UF  1 
END 
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Memory  map  of  the  PABS  program. 


REL  PROGS: 


3576 

VPLOT 

A0AE 

INTERF 

fi4B2 

READX 

AC76 

VPCMl 

B73A 

MODE 

C09C 

DRAU 

D2FA 

VERS 

D552 

IRAN 

D5CC 

CCS 

D5EC 

SIN 

D770 

.R 

D7AC 

.A 

DP66 

MIN0 

DA6C 

MIN02 

DABE 

PINT 

DB36 

$1 

DB38 

FL0AT2 

DBC0 

.Y 

DC74 

ABS 

DC8A 

IP.BS2 

DD3E 

. I lARG 

DD78 

.RRARG 

DE2C 

SB 

DE56 

.5 

DE9C 

.P 

DFIE 

.0 

E03C 

.U 

E0BC 

.V 

E116 

ou 

E3C4 

A218 

MAXMIN 

A313 

MODEP 

AC76 

AXES 

B12A 

NOTE 

C9E8 

SCAN 

CF20 

FIND 

D583 

I0R2 

D5AA 

IAND2 

D6B2 

. I 

D6B8 

. 12 

D852 

ALOG 

D960 

EXP 

DAS2 

. 1 

DA94 

AMOD 

DB4E 

CM 

rB82 

FLOAT 

DBC6 

.Y2 

DC45 

MODE 

DCC4 

.U 

DD12 

.COMP 

DDB6 

$6 

DE0O 

.RARG 

DE5E 

.ZERO 

DESS 

.S 

DFCE 

.0 

E016 

.MES 

EBCA 

@R 

E0F0 

QZ 

F60E 

• 

ftBS  PROGS: 
NOME 


ENTRY-POINTS: 


A0D2 

INTERF 

A23C 

MAXMIN 

AC9A 

AXES 

B14E 

NOTE 

CA0C 

SCAN 

CF44 

FIND 

D58A 

I0R2 

D5AC 

IAND2 

D6B4 

. I 

DSBA 

. 12 

D654 

ALOG 

DS62 

EXP 

DA84 

. 1 

DA9S 

AMOD 

DB50 

$22 

DB84 

FLOAT 

DBC8 

.Y2 

DC43 

M0D2 

Decs 

.U 

DD14 

.COMP 

DDB8 

$6 

DE02 

.RARG 

DE62 

.ZERO 

DESS 

.S 

DFD0 

.0 

E018 

.MES 

E0CC 

0R 

E0F2 

ez 

A334 

MODEP 

A4D6 

READX 

B75E 

MODE 

C0C0 

DRAU 

D31E 

VERS 

D552 

IRAM 

D5CE 

COS 

D5EE 

SIN 

D772 

.R 

D7AE 

.A 

DA63 

MIN0 

DA6E 

MIN02 

DACa 

PINT 

DB39 

$1 

DB8A 

FL0AT2 

DBC2 

.Y 

DC7S 

ASS 

DC8C 

IA3S2 

DD49 

,.  IIARG 

DD7A 

.RRARG 

DE2E 

$8 

DE5A 

.5 

DE9E 

.P 

DF20 

.0 

E69A 

.U 

E0C2 

.V 

E118 

@UI 

E412 

COMMON-BLOCKS: 
FEEE  VPCMl. 


UNDEFINED 

NONE 
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Appendix  I.  Cautionary  Remarks 


u 


I. 


Problems  with  the  Apparatus 


(a)  Occasional  delays  of  two  to  three  weeks  in  obtaining  cylinders  of 
compressed  gas. 

(h)  Drying  tubes:  no  problems. 

(c)  Gas-flow  controller:  generally  no  problems.  Cables  from  inter- 

face must  not  be  tugged  because  miniplug  connections  at  end  of 
cables  are  not  very  strong.  ^ 

(d)  Electrobalance:  because  this  is  the  most  sensitive  piece  of  ap- 

paratus, it  has  to  perform  to  the  highest  specifications. 

(i)  The  contacts  round  the  lamp  in  the  photocell  must  occasionally 
be  sanded  to  remove  oxidation.  The  symptoms  are  unsteadiness 
and  large  standard  deviations  (100  pV?)  in  the  balance. 

(ii)  Even  normal  handling  of  the  balance  pan  can  make  the  flag  in 
the  photocell  scrape  on  the  photocell  housing.  The  symptom 
is  slow  recovery  of  the  balance  after  it  has  been  disturbed 
greatly  (by  a pellet  of  sample  for  example).  Bend  the  flag 
to  clear  the  housing. 

(iii) Degradation  products  sometimes  build  up  on  the  balance 
housing  side  of  the  expansion  joint.  Open  up  the  balance 
housing  and  carefully  burn  the  products  off  with  a torch  or 
bunsen  burner. 

(iv)  When  the  balance  reading  is  stable  for  short  periods  (30  s) 
and  then  changes  by  up  to  300  pV  to  a new  level  of  temporary 
stability,  it  probably  needs  factory  service. 

(v)  Keep  o-ring  seal  between  balance  housing  and  furnace  clean 
and  greased  with  silicone  stop-cock  grease. 

(vi)  Run  balance  with  a time  constant  of  5 s,  adjust  suppression 
to  give  empty  bucket  weight  of  -0.16  V to  -0.175  V (program 
stops  when  sample  weight  goes  below  -0.158  V). 

(vii) a  sample  weight  of  +0.10  to  0.20  V usually  seems  appropriate. 

For  0.10  V,  this  is  (0.10  V + 0.17  V)/0 . 02 (V/mg)  = 13.5  mg  of 
sample. 

(e)  Furnace:  the  furnace  is  usually  trouble-free.  As  it  ages 

(>  9 months),  occasional  flashes  during  the  initial,  high  voltage 
(>  75  V)  stages  of  heat-up  may  indicate  weak  connections. 

Generally,  run  it  until  it  fails.  Have  a spare  on  hand. 

The  best  maximum  settings  on  the  Kepco  power  supply  are  80  to 
85  V and  1.5  to  1.7  amps  (these  depend  on  the  furnace  resistance  being 
''<560).  The  best  settings  on  the  Leeds  and  Northorp  Electromax  III 
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controller  are  proportional  = 120,  reset  = 50  (maximum  possible), 
approach  = 200  (maximum  possible)  and  rate  = 0.  Note  that  the  propor- 
tional range  has  been  increased  by  a factor  of  10  by  placing  a 100  KQ 
resistor  between  terminals  D6  and  D7 . 

With  the  diffusion  pump  assembly,  the  furnace  and  balance  housing 
will  pump  down  to  3 to  5 (Jm  of  Hg.  This  is  achieved  by  using  a flat 
flange  on  the  balance  end  of  the  pyrex  furnace  housing,  by  rotating 
the  furnace  housing  backwards  and  forwards  a few  degrees  to  seal  the 
o-ring  well,  and,  during  assembly  of  the  furnace,  by  expoxying  the 
lead-in  wires  which  supply  power  to  the  furnace.  A greased  Viton-A 
gasket  pressed  on  a hot  press  is  used  to  join  the  two  parts  of  the 
furnace  housing.  The  thermocouple  leads  into  the  balance  housing  are 
also  sealed  with  expoxy  cement.  With  the  direct  access  to  the 
mechanical  pump,  '''  lOpm  of  Hg  pressure  can  be  attained.  This  is 
probably  satisfactory  for  most  "vacuum”  degradations. 

(f)  Pressure  control:  The  Granville-Phillips  Automatic  Pressure 

Controller  is  generally  trouble-free.  Note  that  the  servo-driven 
exhaust-valve  is  intended  for  use  on  an  input  line,  whereas  here 
it  is  used  on  the  output  line.  All  the  open/close  connections 
inside  the  controller  have  been  changed.  In  addition,  the  number 
of  corrective  pulses  per  unit  time  for  a given  pressure  deviation 
has  been  greatly  increased  by  changing  Rl-21  (fig.  4-2,  Granville 
Phillips  Manual)  from  27  Kfi  to  11,7  KQ.  The  settings  for  the 
APC  are  Rate  = 10,  Damping  = 10,  Reference  = 0.8,  Range  = 10  V. 

The  MKS  pressure  measuring  unit  is  also  trouble-free.  Settings 
are  range  multiplier  = 1,  head  range  = 1000,  and  with  no  capacitors  in 
the  scalar  module. 

The  pressure  sensor  itself  performs  very  well  when  allowance  is 
made  for  the  non-ideality  of  the  system  to  be  measured.  At  one  point, 
the  head  was  stuck  at  a 'zero'  of  10.3  mm  Hg  (at  which  the  pressure  is 
really  <5  pm  Hg)  because  there  was  mercury  loose  inside  the  head.  In 
practice  this  presented  no  problem,  but  the  unit  was  later  serviced  by 
the  factory.  The  zero  depends  on  the  position  of  the  head  and  is  not 
constant  from  experiment  to  experiment. 

The  servo-driven  valve  is  usually  trouble-free.  A recent  problem 
was  a sudden  inability  of  the  apparatus  to  control  the  pressure  over  a 
long  period  of  time.  The  pressure  would  oscillate  and  at  some  high 
pressure  (900  to  1000  mm  Hg)  would  blow  out  one  of  the  greased  glass 
joint  connections.  In  diagnosing  the  possible  cure,  we  tried  rinsing 
the  passage  through  the  valve  with  toluene,  then  pumping  it  down.  We 
also  tried  heating  it  for  24  hr  at  105  °C  in  a vacuum  oven.  These 
treatments  had  no  effect.  Another  symptom  was  slow  pump-down  through 
the  valve--the  valve  was  either  blocked  or  not  fully  open.  The  oil 
level  in  the  driver  was  readjusted.  The  valve  then  performed  well. 

As  it  turned  out,  the  new  runs  were  being  made  at  a new  temperature, 

> 400  °C,  and  part  of  the  trouble  arose  from  the  ebb  and  flow  of  hot 
gas  into  the  cool  side  arm  of  the  furnace.  The  cooling  produced 
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additional  pressure  changes  which  were  much  faster  than  the  pressure 
controller  could  handle.  Insulating  the  furnace  arm  did  not  cure  the 
problem,  but  using  a mercury/glass  tube  exhaust  system  did.  Since  the 
exhaust  bubbles  through  the  mercury,  the  pressure  will  be  greater  than 
atmospheric  (unless  you  evacuate  the  space  above  the  mercury). 

(g)  Vacuum  pumps:  no  problems. 

(h)  MIDAS  interface:  generally  no  problems,  occasionally  the  computer 

program  will  hang  in  a wait  loop,  presumably  waiting  for  more 
transmission  from  the  MIDAS  controller.  One  solution  is  to  pull 
out  the  plug  at  the  end  of  the  cable  from  the  computer  to  MIDAS 
and  then  re-insert  it.  This  allows  the  program  to  continue,  but 
by  this  time  much  or  all  of  the  sample  has  degraded.  Nonetheless, 
'the  program  will,  if  all  the  sample  has  gone,  come  to  a normal 
halt.  The  problem  has  often  been 'cured  by  pushing  all  the  pins 

in  the  plug  in  the  back  of  the  MIDAS  firmly  through  the  body  of 
the  plug  and  by  firmly  seating  the  plug  into  the  MIDAS  connection. 
The  problem  may  also  arise  from  the  MIDAS  backplane,  which,  as  of 
this  writing,  is  out  for  repair. 

(i)  Digital  volt  meter. 

This  unit  has  been  plagued  with  troubles.  Recently,  it  worked 
satisfactorily  under  program  control  but  not  under  manual  control  from 
the  front  panel.  Previously,  it  had  problems  in  obeying  the  range 
switch--'it  would  move  the  decimal  point  but  not  the  digits.  After 
being  sent  to  two  local  repair  companies  for  a total  of  three  months, 
it  was  finally  repaired  satisfactorily  at  the  factory. 

(j)  Computer:  hardware  problems  include  one  bad  memory  cell  long  ago 

and  faults  in  the  CPU  board  and  read  errors  in  the  har'd  disc 
drive.  The  operating  system  will  sometimes  not  allow  the  restart 
of  the  overlay  programs  if  they  had  previously  been  interrupted 
and  had  not  come  to  a normal  halt.  The  symptom  is  II...  (illegal 
instruction)  after  you  have  typed  in  RUN  TGMAIN,D1  (and  have 
correctly  assigned  all  the  needed  units).  The  solution  is  to 
type  SM  0 and  then  RUN  TGMAIN,D1.  Sometimes  an  error  message 
results  after  the  first  write  to  the  MIDAS  interface  if  SM  0 is 
not  used.  (This  zeros  the  compute  memory.)  Rewinding  the  output 
files  (via  RW  6 and  RW  3)  and  typing  SM  0 and  RUN  TGMAIN,D1  is 
the  way  to  proceed. 

(k)  Rigid  discs:  Generally  trouble-free.  Occasionally  they  cannot 

be  read.  These  disc  drive  errors  seem  to  have  been  due  to  dirt 
on  the  center  post,  and  on  bad  electrical  contact  between  the 
static  strip  and  the  spinning  spindle  at  the  bottom  of  the  drive. 
Both  of  these  problems  can  be  cleaned  by  swabbing  the  parts  with 
isopropyl  alcohol. 

(l)  Flexible  disc  drives:  some  are  good,  some  are  not.  The  same 

applies  to  the  flexible  discs  themselves.  Do  not  use  these 
unless-  you  have  to.  Drives  B and  C seem  to  be  the  best,  but 
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their  level  of  performance  is  far  below  that  of  the  rigid  discs. 

For  occasional  use  they  are  excellent.  When  the  drives  are  in 
good  condition,  they  are  excellent  even  in  extended  use,  but  it 
seems  to  be  difficult  to  keep  drives  in  good  condition.  After  a 
few  months  of  continuous  use  they  seem  to  die  with  some  ailment 
which  requires  they  be  returned  to  the  factory.  Within  weeks  the 
pressure  pad  may  need  to  be  replaced. 

(m)  Printer-plotter;  generally  trouble-free.  Watch  the  level  of  the 
printer-liquid,  and  give  up  on  trying  to  get  the  paper  to  stack 
neatly  (this  seems  to  depend  on  the  paper  shipment  more  than  on 
you) . Leaving  about  an  inch  of  space  between  the  edge  of  the 
basket  and  the  paper  control  spring  thing  is  the  best  you  can  do. 

(n)  CRT  terminal:  generally  trouble  free  except  for  interinittant 

switch  bounce  (where  for  example,  hitting  the  A key  once  sometimes 
gives  AA  instead  of  A) . Switch  bounce  depends  in  some  way  on  the 
environment.  We  have  replacement  switches  for  this  keyboard. 

Clean  bouncing  switches  with  switch  cleaning  spray. 

(o)  Brief  discussion  of  useful  FLOXOS  commands. 

(i)  The  initial  loading  of  the  operating  system  (FLOXOS)  was 
covered  in  section  I.l.  If  the  FLOXOS  system  is  supposed  to 
be  in  the  computer  but  for  some  reason  is  not  running,  you 
can  enter  DTA,  02D0,  .ADD  and  then  press  the  RUN  button  for  a 
"warm  restart"  which  should  provide  a running  FLOXOS  program 
will  all  the  previous  file  assignments  still  operational. 

(ii)  CH  FO:  Used  when  disc  FO  is  being  removed;  all  current  file 

assignments  to  that  disc  will  be  dropped.  The  disc  will  not 
be  written  on  further  and  you  can  use  all  the  information  on 
it  by  reaccessing  the  files  (use  other  disc  names  for  FO  as 
required). 

(iii) AL  NEWFIL , 2D1 , 1 , 80 : Used  to  create  a new  file  called  NEWFIL 

on  disc  Dl.  This  name  will  be  written  into  the  disc  directory 
and  no  other  file  with  the  same  name  can  exist  on  that  disc. 

If  this  is  already  the  case,  FLOXOS  will  return  a message 
which  says  "NA-ERR,"  i.e.,  not  assigned.  In  the  example 
above,  NEWFIL  will  be  assigned  as  logical  unit  2,  and  will 

be  written  on  or  read  from  whenever  a computer  program 
refers  to  unit  2.  A space  of  one  cylinder  will  be  reserved 
on  disc  Dl , and  each  line  written  to  the  file  will  have  a 
maximum  length  of  80  characters.  This  is  enough  for  144  lines 
Data  files  are  usually  made  with  80  character  lines.  Programs 
are  stored  on  files  with  lines  of  length  108. 

(iv)  AC  MYFILE,6D0:  A file  called  MYFILE  already  exists  on  disc 

DO.  This  command  makes  it  logical  unit  6 so  a computer 
program  can  have  access  to  it. 
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(v)  AS  362:  This  assigns  tlie  printer  (physical  unit  62)  to  be 

logical  unit  3.  Then  information  written  to  unit  3 (programs 
refer  to  logical  units  only)  will  appear  on  physical  unit  62, 
which  is  the  printer.  The  CRT  is  physical  unit  20  (an  RS232 
port  on  the  back  of  the  computer).  The  assignment  362  can 

be  cancelled  by  assigning  3 back  to  the  CRT,  i.e.,  AS  320. 

The  other  physical  unit  which  is  important  is  number  24, 
which  is  attached  to  the  MIDAS  interface.  24  is  base  16; 
BASIC  and  FORTRAN  programs  refer  to  this  in  base  10  as  unit 
36  (2x16+4) . A third  (currently  unused)  RS232  port  on  the 
back  of  the  computer  is  physical  unit  22. 

(vi)  CP  1,2, 80, A:  copy  all  (A)  of  file  1 (previously  assigned) 

. to  file  2 (also  previously  assigned).  Both  files  have  80 

character  lines.  Use  this  command  to  copy  data  from  the 
disc  to  the  printer.  For  example: 

AC  DATA,1D1 
AS  362 
CP  1,3, 80, A 

CP  1,2, 108, A would  be  used  to  copy  program  files,  which  have 
a record  length  of  108. 

(vii) DO  CMMDS,D0:  This  tells  the  operating  system  FLOXOS  to  read 

the  instructions  written  on  a file  CMMDS  which,  in  this 

^ example,  is  expected  to  be  available  on  disc  DO.  These 
commands  can  be  built  up  using  the  EDIT  program  supplied 
with  FLOXOS. 

(viii)EDIT:  A text  editing  program  which  is  the  usual  channel  for 

getting  information  from  the  operator  (you)  to  a file  on  a 
disc.  Refer  to  the  EDIT  manual.  EDIT  reads  unit  1 and 
writes  unit  2.  Several  other  files  are  used  for  print  out 
of  text  or  prompt  characters,  etc.  EDIT  is  easy  to  use  but 
cannot  be  summarized  briefly. 

(ix)  RUN  TGMAIN,D1:  Loads  the  program  TGMAIN  from  disc  D1  into 

the  memory  of  the  computer  and  starts  it  running.  This  is 
the  usual  method  of  starting  FORTRAN  programs.  Any  files, 
including  overlay  files,  needed  by  the  program  must  be 
assigned  before  the  RUN  command  is  issued.  (This  is  done 
via  AL  and  AC  commands  which  are  usually  already  set  up  in  a 
transfer  file  such  as  SETTG  if  the  same  files  are  always 
needed  by  a program.) 

(x)  BASIC:  The  BASIC  interpreter  itself  is  run  by  typing  RUN 

BASIC.  However,  it  is  usually  used  here  to  control  MIDAS 
with  the  BASIC  program  BMPD.  The  procedure  is  the  following: 


AL  DATA,7D1,2,80  or  AC  DATA,7D1 
AC  BMPD,2D1  (or  FI  etc.) 

DO  MIDAS, D1 

then,  after  the  BASIC  interpreter  has  replied  "BASIC..." 

LOAD  2 

RUN 

etc. 

The  readings  from  the  MIDAS  interface  are  written  on  unit  7, 
assigned  above  as  DATA  in  this  example. 

(xi)  CL:  completes  the  transfer  of  information  to  a file.  Not 

always  needed,  cannot  always  be  neglected.  Refer  to  the 
FLOXOS/FLOS  manuals. 

(xii) RW  6:  Rewind  the  file  assigned  to  unit  6 so  that  the  next 

reading  or  writing  takes  place  at  the  beginning  of  the  file. 
AC  and  AL  start  at  the  beginning  of  the  file. 

(xiii)WF  6:  Write  an  end-of-file  (a  sort  of  magnetic  end  of 
information  mark)  on  the  file  assigned  to  unit  6. 

(xiv)FORTRAN:  Refer  to  the  program  appendices  to  see  how  to 

compile  and  execute  FORTRAN  programs. 
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TABLE  J1 


REMOTE  CONTROL  OF  DV:M  CABLING  DIAGRAM  FROM  MIDAS  BCD  I/O 
J2  PLUG  TO  DVM  J202  PLUG 


Cociment  on 
)VM  function 

DVM 

Function 

Pin  on  DVM 
Connector  J202 

Wire  Code 

coble  number,  color 

Pin  on  MIDAS 
Connector  J2 

MID/^ 

Function 

Comment  on 
MIDAS  Function 

Program 

front  panel 
control 

PO 

hold 

AlO 

lY(ellov) 

A 

PI 

P outp-.t  register 

system  control 

E6 

lO(range) 

3 

P2 

super  fast 

A7 

IR(ed) 

2 

PA 

program  storage 

B15 

IBr (own) 

1 

P8 

Function 

DC  measuremer.;: 

QO 

Q output  register 

filter 

B7 

IGr(ay) 

8 

Q1 

AC 

A8 

IV(iolet) 

7 

- Q2 

Ohme 

A9 

IB  due) 

6 

QA 

Ratio 

B8 

IG(reen) 

5 

Q8 

Range 

Auto range 

RO 

R output  register 

B12 

2R 

12 

R1 

B13 

2Br 

11 

R2 

BIA 

IBl(ack) 

10 

RA 

Bll 

IW(hite) 

9 

R8 

A15 

20 

• 17 

Strobe 

S output  register 

A14 

2Y 

18 

Ground 

BIO 

2G 

28 

Trigger 

J2 


1 1 Miip:  Ri  ''K  n\M. 

CAJIX  DIAU.V  l ;!UM  Mt'J.v;  Jl  !1X;.  TO  DVM  J.'Ol  I lL'C 


DVM  Function 


Sign  oi  ru.nding 


"half  digit" 

(0  or  1 because 
of  over-ranging 
capability) 


Second  digit 


Third  digit 


Fourth  digit 


Fifth  digit 


Sixth  digit 


DVM  Overloaded 
or  Illegal 
function 
specified 


Range 

Specification 


Cocmoc  Ground 


Read  to  Trsinmli 
Data 


DVM  functl  *n  | 

I'la  on  '.'VM 

VLr»-  '’.iJ.- 

i’ln  rn 

'•.lO.v;  Fi.net  U- 

on 

(Ui:caU\--b  1 C ) 

C.nin.'ct.'r 

t’.ii*  lo  -.^..Vu  r,  lolji 

C.K.  tnu*.  1 4-  r J 1 

> 1 1 ' 

l»»i\w  7u.\».tlon 

Sign 

. AlO 

lUr(ou*n) 

45 

P-1 

0 fo 1 c , L foe  - 

33 

1-2 

ground  • .0 

40 

1-4 

NC* 

- 1 

44 

1-8 

NC  - 

1 

lOOlC-i 

B3 

3Y(ellow) 

32 

2-1 

0 or 

1 for  dccadlng 

half  digit 

36 

2-2 

1 - 0 

39 

2-4 

grounded  7*0 

43 

208 

' - 0 

lOF-1 

B6 

3R(ed) 

31 

3-1 

10i;-4 

B7 

30( range) 

30 

3-4 

( Socond 

10K.-3 

39 

3G(ceen) 

42 

3-3 

Digit 

lOK-2 

BIO 

3B(lu^) 

35 

3-2 

IF- 4 

B12 

3V(lolot) 

' 37 

4-4 

lK-1 

B13 

3Cr(ay) 

30 

4-1 

[ Third 

lK-3 

B14 

3W(hlte). 

41 

4-S 

Digit 

IK- 2 

B15 

3Bl(ack) 

34 

4-2 

lOC-4 

B16 

2Bt 

13 

5-4 

IOC  1 

B17 

2R 

5 

5-1 

Fourth 

100-  'i 

BIB 

20 

17 

5-8 

Digit 

100  -2 

B19 

2Y 

0 

5-2 

10-4 

B20 

^0 

14 

«-4 

10-1 

B21 

2E 

6 

6-1 

Fifth 

10-6 

B22 

2U 

18 

6-8 

Digit 

10-2 

A22 

2E1 

10 

6-2 

. 

1-: 

A21 

2Cr 

7 

7-1 

1 

1-4 

A20 

2V 

15 

7-4 

/ 

Sixth 

1-8 

19 

161 

19 

7-3 

Digit 

1-2 

18 

IGr 

11 

7-2 

1 

8 

8-1 

NC 

scLie  could  be 

12 

8-2 

SC 

giouaded  to 
give  an  appro- 

16 

8-4 

NC 

ptlate  MIDAS 

20 

8-8 

NC 

character  for 
spacing  (see 
be  1 ow) 

NO 

A12 

10 

28 

9-1 

0 « 

ok  1 - SO 

3 

9-2 

23 

9-3 

grounded  (*C) 

21 

9-4 

8 

17 

IV 

2 

10-2  j 

C 

16 

IB 

22 

1C- 1 

DV*M  k.3.igc 

A 

15 

IG 

4 

10-1 

Specification 

C 

14 

lY 

2C 

10-8 

Croiind 

31 

3P.r 

1 

Ground 

1.2 

+ 5V 

E3 

Cga^roi 

FI  iter 

35 

SI  1 

Hnto^jrcPe 

b 11 

Ontu  FrA(!v  * 

All 

IR 

48 

w: 

Slnrt  rcndliiK  d«iC4 

47 

MC 

grounded 

he  • not  ronnerti.l 


J3 


TABLE  J3 


HinAS  BCD  1/0  moJult  Juniptir  positions: 

Input  sense  selection  • 1 
output  scnce  sele.  tlon  = 0 
patch  to  "no  E"  In  output  reading 

BCD  character  table  hardwired  Into  MID/s^. 


BCD 

0 
1 
2 
3 
A 

5 

6 

7 

8 

9 

10 
11 
12 
13 
lA 
15 

for  posltlve-truc  Input,  open  pin  is  1. 
for  ground-true  Input,  grounded  pin  Is  1. 


Cliararter 

0 

1 

2 

3 

A 

5 

6 
7 

* 8 

9 


skip  (no  printing  character) 


DC  volt 


range  specification 


for  Dana  5900  Dl'b'. 


PeclT.al  Value  Range 


3 O.IV 

A IV 

5 lOV 

6 lOOV 

7 lOOOV 


Example  of  programming: 

S begin  comrand  stream 
K BCD  I/O  module  address  in  Crete 
P begin  by  filling  register  P 
3 3 - 1+2;  i " hold 

2 " system  control 
1 1 " 1+0,  1 * filtered  input 

0 “ DC  volts 

3 range  specification  3 « O.IV  (over-ranges  to  0.16V) 

* wait  after  next  character  is  received,  continue  when  BDC  I/O  module 
sends  "continue"  signal  to  controller 
T trigger  the  Dl’M  to  take  a reading 
U unload  the’  DVM  reading. 

Sample  of  reading  as  output  after  above  commands: 

A BC 
-123A5603 


A • DC  voltage  in  microvolts 
B “ 0 for  satisfactory  DVM  performance 
1 for  Illegal  function  or  overload 
C “ O.IV  range  used 
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